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IS  ASSTNACT 


The  Constrained  Force  Model,  CONFORM,  is  designed  to  assist  force  planners 
in  the  task  of  adjusting  proposed  theater  troop  lists  to  satisfy  troop  ceilings, 
fiscal  and  other  constraints.  The  raodel  is  especially  suited  for  troop  list 
evaluations  and  analyses  concerned  with  support  allocation  role,  constrained 
force  design,  support  shortfalls  and  theater  force  costing. 

CONFORM,  using  an  extension  of  linear  programming  called  goal  programming, 
is  an  optimization  model  that  integrates  mathematical  programming  into  the 
support  roundout  process  thereby  enabling  the  planner  to  control  the  support 
shortfalls  that  occur  vhen  adjustments  are  made  in  troop  lists.  The  model  is 
operational  at  the  US  Army  Management  System  Support  Agency. 
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Chapter  1 


INTRODUCTION 


CONFORM  Is  an  automated  mathematical  modeling  system  that  aids  the 
Army  force  planner  in  developing  alternative  theater  forces.  It  is  an 
extension  of  the  Modular  Force  Planning  System  (Battalion  Slice)  which 
automates  the  theater  combat  force  roundout  process.  Both  the  Battalion 
Slice  and  CONFORM  are  operational  at  the  US  Army  Management  Systems 
Support  Agency  (USAMSSA). 

The  usual  Battalion  Slice-CONFORM  relationship  involves  the  develop 
ment  of  an  "unconstrained  base  case"  force  by  the  Battalion  Slice,  and 
the  modeling  of  that  case  plus  the  addition  of  specified  resource  and 
relational  constraints  in  one  or  more  CONFORM  models  to  generate  alterna 
tives  to  the  base  case. 

Specifically,  CONFORM  models  are  linear  programming  (LP)  models. 

The  reader  is  assumed  to  be  familiar  with  LP  in  general  and/or  LP 
modeling  techniques .  CONFORM  variables  represent  such  things  as  the 
number  of  each  type  of  Army  unit  in  a  force,  and  the  amount  of  devia¬ 
tion  of  that  number  from  allocation  rule  requirements  for  that  unit 
and/or  from  a  target  value.  The  model  equations  represent  such  things 
as  the  setting  of  combat  units  at  desired  levels  in  the  force,  Battalion 
Slice  allocation  rules  for  support  units,  limits  on  the  strength  and 
cost  of  all  combat  units,  all  support  units,  the  total  force,  and  sup¬ 
port  units  aggregated  by  functional  area,  and  limits  on  the  amount  of 
unit  deviations  from  allocation  rule  requirements  and  targets.  Alterna¬ 
tive  objective  functions  include  the  strength  and  cost  of  all  combat 
units,  all  support  units,  the  total  force,  and  support  unit  aggregates, 
combat  unit  effectiveness  indices,  and  unit  deviations. 
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The  solution  of  a  CONFORM  LP  model  is  a  fores  that  satisfies  all 
nodded  conditions  and  constraints  and  which  is  best  among  all  such 
forces  with  respect  to  a  chosen  objective  function. 

The  specific  LP  nodel  for  each  CONFORM  run  is  automatically  built 
by  the  CONFORM  LP  matrix  generator— CONGES.  The  LP  model  is  solved  by 
a  commercially  available  mathematical  programming  system  (MPS)— currently 
IBM's  MPS/36O  at  USAMSSA.  The  nodel  solution  as  reported  by  the  commer¬ 
cial  systems  is  not  appropriate  for  force  planner  reports  or  convenient 
for  reading  by  the  CONFORM  opera tor/LP  analyst.  Optional  reports  that 
are  readable  by  the  force  planner  nay  be  automatically  produced  from  the 
LP  model  solution  by  the  CONFORM  LP  report  writer— COBREP. 

The  ttijor  sources  of  input  data  for  CONFORM  are  the  allocation 
rule  coefficients  of  the  Battalion  Slice  nodel,  cost  data  of  the  Force 
Cost  Information  System  (PCIS)  which  is  also  maintained  at  USAMSSA, 
and  user- specified  constraints  and  options.  The  CONFORM  interface  vith 
both  Battalion  Slice  and  PCIS  is  automated.  The  PCIS  was  formerly 
called  the  Cost  Analysis  System  (C0STAL8). 

Thus,  CONFORM  is  an  automated  mathematical  modeling  system — LP 
matrix  generator,  solution  system,  report  writer— eooe  of  whose  inputs 
are  actually  other  force-planning  models  or  systems. 

This  volume  is  addressed  to  the  CONFORM  operators — those  who  must 
translate  the  force  planner's  run  schedule  into  an  appropriate  set  of 
CONFCiKM  runs,  who  must  prepare  data  and  execute  the  runs,  and  who  may 
be  required  to  alter  or  further  develop  the  model.  This  volume  is  a 
detailed  model  description,  computer  program  documentation,  and  thus 
an  operator's  guide.  The  reader  is  assumed  also  to  be  fudllar  vith 
the  contents  of  Volume  I  of  this  report,  which  is  a  more  general 
description  of  CONFORM,  intended  primarily  to  give  the  f~rce  planner 
a  general  understanding  of  CONFORM  and  its  use. 
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Chapter  2 

DETAILED  MODEL  DESCRIPTION 


INTRODUCTION 

This  chapter  describee  In  detail  the  logic  of  basic  and  optional 
CONFORM  LP  model  structure.  As  an  Introduction  the  simplest  aodel  that 
nay  be  automatically  generated  by  the  CONFORM  LP  matrix  generator, 

CONGO!,  Is  described. 

The  simplest  model  Is  one  whose  solution  Is  Identical  to  that  of 
a  Battalion  Slice  run  In  which  there  were  no  "optional,"  "au^sentatlon,’' 
"deletion,"  or  "maximum-allowable"  units.  This  model  would  have  one 
variable  or  coluan  for  each  combat  and  support  unit  type.  These 
variables  represent  the  number  of  each  unit  type  In  the  force.  There 
would  be  one  equation  or  row  for  each  combat  unit  type,  setting  the 
corresponding  variable  to  the  right  hand  side  (RHS)  value.  There  would 
alao  be  one  row  for  each  support  unit  type,  representing  the  allocation 
rules  for  that  unit,  both  allocation  to  combat  and  to  support  units, 
and  equating  the  corresponding  variable  to  these  allocation  rule  require¬ 
ments.  In  addition  there  would  be  six  resource  limit  rows  and  six 
alternative  objective  function*— one  of  each  for  strength  and  cost  of 
the  combat  force,  support  force,  and  total  force.  The  resource  limit 
rows  should  not  be  constraining.  Since  the  ccmbat  force  Is  specified 
by  RHS  values  and  the  support  force  Is  specified  by  those  values  and 
the  allocation  rules,  there  Is  only  one  feasible  solution  to  this  model 
(and  It  Is  the  optimal  one).  One  of  the  six  alternative  objective 
functions  still  must  be  chosen  as  the  one  for  the  run,  however;  and 
Its  choice  determines  the  type  of  marginal  value  Information  that  nay 
be  obtained  from  the  run.  This  point  will  be  discussed  acre  fully  In 
the  section  on  Marginal  Values. 
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where 


scj  is  the  number  of  men  in  ccobat  unit  j 
XCj  is  the  number  (variable)  of  combat  units  J  in  the  force 
NCQMBT  is  the  number  of  combat  unit  types 
ssj  is  the  number  of  men  in  support  unit  j 
XSj  is  the  number  (variable)  of  support  units  J  in  the 
force 

NSUPRT  is  the  number  of  support  unit  types 
ccj  is  the  cost  of  combat  unit  J 
csj  is  the  cost  of  support  unit  j 
Cj  is  the  number  (constant)  of  combat  units  J  in  the 
force 

atj  is  the  number  of  support  units  i  required  per  one 
combat  unit  J 

bj  j  is  the  number  of  support  units  i  required  per  one 
support  unit  J 

scl  is  the  upper  limit  on  total  combat  strength 

ssl  is  the  upper  limit  on  total  support  strength 

stl  is  the  upper  limit  on  total  force  strength 

ccl  is  the  upper  limit  on  total  combat  cost 

csl  is  the  upper  limit  on  total  support  cost 

ctl  is  the  upper  limit  on  total  force  cost. 

COMBAT  UNITS 

The  number  of  combat  unit  types  included  in  the  Battalion  Slice 
run  on  which  a  CONFORM  run  is  based  (or  a  number  specified  by  the  user 
if  the  source  of  basic  CONFORM  data  is  data  hand-prepared  by  the  user 
rather  than  that  automatically  prepared  by  Battalion  Slice;  see  Chapter 
3)  is  always  modeled  in  CONFORM. 

At  least  one  model  column  and  one  row  are  always  generated  for 
each  combat  unit.  The  column  represents  the  number  of  units  of  that 
type  in  the  force.  The  name  of  the  column  is 
["C",i,J,k3> 


where  ijk  is  the  DIM  number  of  the  unit.  The  row  relates  the  column  to 
the  RHS  value  of  the  row.  Frequently  this  sets  the  column  equal  to  the 
RHS  value.  The  type  of  each  row  is  individually  specified  by  the  user. 
The  type  may  be 

£  RHS  value 
=  RHS  value 
s  RHS  value 

unconstrained  by  RHS  value. 

The  types  of  the  rows  are  specified  by  input  datum  NCON.  The  name  of 
the  row  is  the  same  as  that  of  the  column.  Figure  1  is  an  example  of 
this  simple  structure.  When  the  numbers  of  units  are  not  fixed — the 
rows  are  not  equalities — they  may  be  constrained  to  some  ratio  or  mix. 
This  is  discussed  in  a  separate  section. 

Deviations 

The  RHS  values  may  be  interpreted  as  target  values  in  certain 
applications.  In  these  cases  additional  columns  maybe  generated  to 
represent  deviations  from  the  target  values.  The  amount  of  deviation 
from  the  target  values  of  individual  units  may  be  constrained,  and 
total  deviations  may  be  minimized.  One  column  may  be  generated  to 
represent  longfalls.  These  columns  are  dimensioned  in  numbers  of  units 
just  as  the  basic  combat  unit  columns.  Shortfall  and/or  longfall  columns 
for  all  combat  units  may  be  generated.  The  choice  of  these  options  is 
specified  by  input  data  CSSW,  CISW  and  following.  These  data  require¬ 
ments  are  discussed  in  Chapter  3*  The  names  of  the  columns  are 

II Q  II 

["C",i,J,k,  ®  ]. 

where  ijk  is  the  DTM  number  of  the  unit,  and  "S”  and  "L"  are  for  short¬ 
fall  and  longfall.  Each  column  generated  intersects  the  basic  combat 
unit  row,  and  a  special  row  that  limits  the  amount  of  deviation.  The 
shortfall  and/or  longfall  is  limited  in  the  model  with  respect  to  the 
number  of  that  unit  type  in  the  force.  The  deviations  are  usually 
thought  of  with  respect  to  the  RHS  value,  then  the  number  of  units  of 
that  type  in  the  force  would  be  at  least  80  percent  of  the  RHS  value, 


9 


c  c  c 

9  9  9 

0  0  0 

1  2  3 


C901  +1 


=  +  10.0 


C902 


+1 


■  +  3.0 


C903 


+1 


+  5.0 


Fig.  1—  Example  of  Basic  Matrix  Structure  for  Combat  Units 
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and  thus  the  shortfalls  would  "be  limited  to  at  most  25  percent  (— ^— ) 


of  the  number  of  units  In  the  force.  If  the  longfalls  were  limited  to 
at  most  20  percent  of  the  KHS  value,  then  the  number  of  units  would  be 
at  most  120  percent  of  the  KHS  value,  and  thus  the  ltingfall  would  be 

limited  to  at  most  16-2/3  percent  of  the  number  of  units.  The 

names  of  the  rows  that  impose  these  constraints  are 

where  ijk  is  the  DTM  number  of  the  unit,  and  "S"  and  "L"  are  for  short¬ 
fall  and  longfall.  The  types  of  the  constraint  rows,  as  well  as  the 
percentages  are  individually  specified  for  each  unit. 

Figure  2  is  an  example  of  the  matrix  structure  for  one  combat  unit 
when  shortfalls  up  to  20  percent  of  the  RHS  value  are  allowed. 

Figure  3  is  an  example  of  the  matrix  structure  for  the  same  combat 
unit,  with  the  addition  of  the  allowance  of  longfalls  up  to  10  percent 
of  the  RHS  value. 

These  deviation  columns  intersect  the  alternative  objective  func¬ 
tion  TDEV  with  all  non-negative  coefficients.  Thus  minimizing  TDEV  would 
minimize  the  sum  of  absolute  deviations.  Shortfalls  and  longfalls  are 
individually  specified  to  be  weighted  in  the  objective  function  by 
strength  (thousands  of  men),  cost  (millions  of  dollars),  number  of  units, 
or  combat  effectiveness.  Combat  unit  effectiveness  measures  are  dis¬ 
cussed  next. 

Effectiveness  Indices 

Up  to  six  indices  of  canbat  unit  effectiveness  may  be  represented 
in  a  single  model.  One  row  is  generated  for  each  index  to  simply 
calculate  its  total.  The  6- character  name  and  the  type  of  each  row 
as  well  as  the  individual  coefficients  of  each  unit  for  each  index 
are  user- specified.  When  the  type  of  a  row  is  "unconstraining,"  the 
row  may  be  used  as  an  objective  function  as  well  as  to  simply  report 
the  total.  Otherwise  these  rows  may  be  used  to  impose  real  constraints 
on  the  values  of  certain  measures  of  combat  units.  The  coefficients 
of  these  rows  are  always  non-positive  in  the  model.  In  this  way  the 
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standard  sense  of  optimization  of  most  MPS — minimization — will  maximize 
the  value  of  the  index.  If  the  revs  are  used  as  constraints,  the  RHS 
values  should  be  non-positive,  and  the  row  types  should  be  reversed 
from  the  conceptual  type.  The  combat  unit  effectiveness  index  option 
is  selected  by  input  data  NEFF,  EFFLAB  and  EFF. 

SUPPORT  UNITS 

The  number  of  support  unit  types  mentioned  in  the  A-matrix  of  the 
Battalion  Slice  run  on  which  a  CONFORM  run  is  based  (or  a  number 
specified  by  the  user  if  the  source  of  basic  CONFORM  data  is  data  hand- 
prepared  by  the  user  rather  than  that  automatically  prepared  by  Battalion 
Slice;  see  Chapter  3)  is  always  modeled  in  CONFORM.  Even  if  there  are 
no  actual  A-matrix  coefficients  for  a  unit,  it  is  still  modeled. 

At  least  one  model  column  and  one  row  are  always  generated  for 
each  support  unit.  The  column  represents  the  number  of  units  of  that 
type  in  the  force.  The  name  of  the  column  is 
[ "S", i, j,k] , 

where  ijk  is  the  DTM  number  of  the  unit.  The  row  is  called  the  "alloca¬ 
tion  rule  row"  for  the  unit.  It  has  a  positive  coefficient  in  the 
column  of  every  combat  and  support  unit  that  "requires"  sane  of  the 
support  unit,  and  a  "-1.0"  in  the  column  of  the  support  unit.  The  row 
is  usually  equal  to  zero,  thus  setting  the  number  of  each  support  unit 
type  in  the  force  exactly  equal  to  allocation  rule  requirements.  The 
type  of  all  allocation  rule  rows  is  user-specified.  The  user  may  thus 
state  that  all  support  units  must  be  "at  least"  or  "at  most"  equal  to 
allocation  rule  requirements.  If  a  support  unit  requires  "b"  of  itself, 
then  the  coefficient  in  its  column  is  "b-1.0"  instead  of  "-1.0".  The 
names  of  these  rows  are  the  same  as  the  corresponding  columns.  Figure  4 
is  an  example  of  this  basic  matrix  structure  for  support  units. 

Note  that  if  a  negative  RHS  value  were  placed  on  one  of  these  rows, 
then  the  number  of  support  units  of  that  type  in  the  force  would  have 
to  be  equal  to  (or  at  least  equal  to,  etc.)  allocation  rule  require¬ 
ments  plus  the  absolute  value  of  the  RHS  value.  If  a  positive  RHS  value 
were  placed  on  one  of  these  revs,  the  number  of  support  units  of  that 
type  in  the  force  would  only  have  to  be  equal  to  allocation  rule 
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requirements  less  the  RHS  value.  RHS  values  of  these  rows  can  thus  be 
used  to  represent  Battalion  Slice  optional,  augmentation,  and  deletion 
units.  Optional  and  augmentation  units  would  be  represented  by  nega¬ 
tive  RHS  values — units  without  allocation  rule  coefficients  (optional 
units)  still  have  these  rows.  Deletion  units  are  represented  by  posi¬ 
tive  RHS  values .  Battalion  Slice  maximum-allowable  units  may  be 
treated  like  deletion  units  in  "base  case"  runs. 

Requirements  Deviations 

Allocation  rule  requirements  may  be  interpreted  as  only  goals 
rather  than  absolute  requirements  in  seme  applications.  In  these  cases 
additional  columns  may  be  generated  to  represent  deviations  from  the 
requirements.  These  are  called  "requirements  deviations."  The  amount 
of  shortfall  and/or  longfall  frem  requirements  for  individual  units 
may  be  constrained,  and  total  deviations  may  be  minimized.  One  column 
may  be  generated  to  represent  requirements  shortfalls,  and  a  second  may 
be  generated  to  represent  requirements  longfalls.  These  columns  are 
dimensioned  in  numbers  of  units  just  as  the  basic  support  unit  columns. 
Requirements  shortfall  and/or  longfall  columns  for  all  support  units 
may  be  generated.  The  choice  of  these  options  is  specified  by  input 
data  SRSSW  and  SRLSW  and  following.  These  data  requirements  are  dis¬ 
cussed  in  Chapter  3«  The  names  of  these  columns  are 
["S",i,j,k,"R","f], 

where  ijk  is  the  DTM  number  of  the  unit,  and  "S"  and  "L"  are  for  short¬ 
fall  and  longfall.  Each  column  generated  intersects  the  allocation  rule 
row  and  a  special  row  that  limits  the  amount  of  deviation. 

The  shortfall  and/or  longfall  is  limited  in  the  model  with  respect 
to  the  number  of  that  unit  type  in  the  force.  The  deviations  are 
usually  thought  of  with  respect  to  the  allocation  rule  requirements. 

The  conversion  is  straightforward.  If  the  shortfalls  of  a  support  unit 
are  limited  to  at  most  20  percent  of  total  allocation  rule  requirements 
for  the  unit,  then  that  unit  will  be  at  least  equal  to  80  percent  of 
'requirements,  and  thus  the  shortfall  would  be  limited  to  at  most  25 
on 

percent  (t^q)  of  ttie  number  of  that  type  of  unit  in  the  force.  If 


i 


longfalls  were  limited  to  at  most  20  percent  of  requirements,  then  the 
unit  would  he  at  most  120  percent  of  requirements,  and  thus  the  long- 

20 

fall  would  he  at  most  16-2/3  percent  (y^j)  of  the  number  of  that  type 
of  unit.  The  names  of  the  rows  that  impose  these  constraints  are 

[*’S",i,j,k,"R",YV'P"3. 

where  ijk  is  the  DTM  number  of  the  unit,  and  "S"  and  "L"  are  for  short¬ 
fall  and  longfall.  The  type  of  the  constraint  row,  as  well  as  the 
percentages  are  individually  specified  for  each  unit. 

Figure  5  is  an  example  of  the  matrix  structure  for  one  support 
unit  type,  when  shortfalls  up  to  20  percent  of  requirements  are  allowed. 
In  the  figure,  "E"  symbolizes  the  allocation  rule  requirements.  Notice 
that  a  row  constrains  the  shortfall  to  be  sane  fraction  of 

requirements . 

Figure  6  is  Fig.  5  with  the  addition  of  the  allowance  of  long- 
fall  up  to  10  percent  of  requirements. 

The  constraining  rows  are  always  generated  when  the  deviation 
columns  are  generated.  If  one  wanted  a  deviation  column  to  be  uncon¬ 
strained,  the  percentage  should  be  specified  as  zero,  and  the  row  type 
as  .  This  would  simply  say  that  the  column  must  be  *  zero- 
unconstrained. 

As  with  the  combat  units,  these  deviation  columns  Intersect  the 
alternative  function  TEEV  with  all  non-negative  coefficients  and  mini¬ 
mizing  TDEV  would  minimize  the  sum  of  absolute  deviations.  Shortfalls 
and  longfalls  are  individually  specified  to  be  weighted  in  the  objective 
function  by  strength  (thousands  of  men),  cost  (millions  of  dollars),  or 
number  of  units. 

Force  Deviations 

Fixed  numbers  of  units  may  be  specified  as  goals  or  target  values 
for  the  actual  number  of  support  units  in  a  force.  These  target  values 
may  be  the  numbers  of  the  units  in  a  "base  case  run."  In  this  case  an 
additional  model  row  is  generated  for  each  support  unit.  The  RH8  values 
of  these  rows  are  the  target  values.  Additional  columns  are  generated 
to  represent  shortfalls  and/or  longfalls  from  the  target  values.  The 
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planner  My  desire  the  ntaber  of  units  of  each  type  In  an  al  terns  tire 
force  to  be  as  close  as  possible  to  those  In  the  base  case.  These 
target  values  frequently  define  that  base  case  or  previous  force.  This 
type  of  deviation  Is  therefore  called  "force  deviation."  The  aaount  of 
force  shortfall  and/ur  longfail  for  individual  units  say  be  constrained, 
and  total  deviations  asy  be  a  In  Lai  ted. 

One  column  nay  be  generated  to  represent  force  shortfall,  and  a 
second  to  represent  force  longfail  for  each  unit.  These  coluans  are 
dimensioned  in  numbers  of  units,  Just  as  the  basic  support  unit  coluan 
and  the  RHS  target  value.  Force  shortfall  and/or  locgfall  coluans  asy 
be  generated  for  all  units.  The  choice  of  these  options  Is  specified 
by  Input  data  SFSSV,  87L5V  and  fol loving.  The  names  of  these  coliams  are 

where  ljk  Is  the  DIM  nuaber  of  the  unit,  and  "S"  and  "L"  are  for  short* 
fall  and  longfell.  The  naae  of  the  row  whose  WIT  value  la  the  target 
value  Is 

l"8",l,j,k,"F"), 

where  ljk  Is  the  DIM  nuaber  of  the  unit.  Bach  coluan  Intersects  the 
target  value  row  and  an  additional  row  that  Halts  the  amount  cf  de¬ 
viation. 

The  shortfall  and/or  lcngfSll  Is  limited  In  the  model  with  respect 
to  the  nuaber  of  that  unit  type  In  the  force.  The  deviations  are 
usually  thought  of  with  respect  to  the  target  value.  The  conversion  is 
straightforward;  It  Is  the  saw  as  for  "requirements  deviations"  and 
"coabet  unit  deviations."  The  mums  of  these  constraining  rows  are 

["8",l,J,k,"r,"f","P"), 

where  ljk  Is  the  DIM  number  of  the  unit,  and  "8"  and  "l"  are  for  short¬ 
fall  and  longfell.  The  type  of  the  constraint  row,  as  well  as  the  per¬ 
centages  are  Individually  specified  for  each  unit. 

Figure  7  Is  an  example  of  matrix  structure  for  one  support  unit 
type,  when  shortfalls  up  to  20  percent  of  the  target  value  (10.0)  ere 
allowed.  In  the  figure  "E"  syabollzes  the  allocation  rule  requirements 
for  the  unit. 


18 


/ 


s  s 

1  l 

9 

it 

F 

S 


819**  I 

-1 

•  0 

S19«*F 

♦  1  *1 

-  10.0 

si9«*rsp 

♦.25  -1 

»  0 

Fl|.  ?-lw >li  d  Matt  1  ■  Street  ate  far  a  fappart  llatt  wMi  Pan 

ftp  te  20  pateaat  af  lift  Valae 

ca  Skartfall  Aliened 

19 


Figure  8  Is  Fig.  7  with  the  addition  of  the  allowance  of  longfall 
up  to  10  percent  of  the  target  value. 

A s  before,  these  deviation  columns  intersect  the  alternative  objec¬ 
tive  function  TEEV  with  all  non-negative  coefficients  and  minimizing 
TDEV  again  minimizes  the  sum  of  absolute  deviations.  Shortfalls  and 
longfails  are  individually  specified  to  be  weighted  in  the  objective 
function  by  strength,  cost  or  number  of  units. 

Support  Unit  Aggregates 

Up  to  25  aggregates  of  support  units  may  be  represented  in  one 
model.  These  aggregates  may  correspond  to  functional  areas  of  support, 
such  as  "medical,"  "engineer,"  "signal,"  etc.  One  unit  maybe  included 
in  mare  than  one  area  if  it  is  meaningful  to  do  ao.  The  user  defines 
each  aggregate  by  specifying  the  unit  types  to  be  Included  in  each.  At 
least  two  model  rows  are  generated  for  each  aggregate.  The  rows  total 
the  strength  and  the  cost  of  the  aggregate.  The  name  and  the  type  of 
each  row  is  user  specified.  The  lames  of  the  strength  rows  are 
[a,b,"8","T","R"l, 
and  the  names  of  the  cost  rows  are 
[a,b,"C","S","r], 

where  ab  is  a  two-character  identifier  supplied  by  the  user  for  each 
aggre^te.  The  row  types  are  individually  specified.  If  the  type  of  a 
row  is  "uncons training,"  it  may  be  used  as  an  objective  function.  Other¬ 
wise,  the  RH8  value  of  the  row  -epresents  a  constraint  on  the  strength 
or  cost  of  the  aggregate.  All  coefficients  in  these  rows  are  non- 
negative. 

If  support  unit  requirements  shortfalls  and/or  longfails  are  repre¬ 
sented  in  a  model,  two  additional  revs  are  generated  for  each  aggregate. 
These  rows  total  the  strength  and  cost  requirements  deviations  of  the 
units.  Shortfall  columns  intersect  these  rows  with  non-positive  coef¬ 
ficients,  and  longfall  columns  Intersect  them  with  non-negative  coef¬ 
ficients.  Since  these  rows  are  designed  for  reporting  purposes,  they 
are  always  generated  as  "unconstraining"  revs .  The  names  of  these  revs 
are 

[ a,b, "S" , "T" , "R" , "R" , "D" ] 
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and  [  a  ,b,  "C" , "S" , "T" , "R" , "D" ] , 

where  ab  is  as  for  the  basic  support  unit  aggregate  row  names. 

Likewise,  if  support  unit  force  shortfalls  and/or  longfalls  are 
represented  two  additional  rows  are  generated  for  each  aggregate.  They 
report  the  total  strength  and  cost  force  deviation  of  the  aggregate. 

The  names  of  these  rows  are 

[ a , b , "S" , "T" , "R" , "F" , "D"  ] 
and  [  a  ,b,  "C" ,  "S" ,  "T" ,  "R" ,  "D"  ] 

where  ab  is  as  above. 

COSTING 

CONFORM  represents  one  type  of  cost  in  a  single  model.  That  type 
may  be  for  example  "total  initial  cost,"  "total  annual  operating  cost," 
"initial  plus  ten  years  operating  cost,"  or  "initial  plus  ten  years 
operating  cost  discounted  at  ten  percent,"  with  an  assumed  distribution 
of  units  at  peacetime  stations  such  as  "5/6  in  CONUS  and  l/6  in  Europe." 
One  cost  factor  or  unit  cost  is  used  in  a  strictly  linear  fashion  for 
each  combat  and  support  unit  type  in  model  objective  functions  and  con¬ 
straints. 

Basic  CONFORM  data,  including  cost  factors,  may  be  input  auto¬ 
matically  from  the  Battalion  Slice  model  or  from  data  hand-prepared  by 
the  user.  If  the  user  hand-prepares  the  data,  he  Inputs  the  one  cost 
factor  for  each  unit.  If  the  data  source  is  the  Battalion  Slice  model, 
its  special  extraction  from  the  FCIS  is  the  source  of  cost  data.  This 
source  contains  cost  factors  for  most  units  for  14  initial  investment 
and  18  annual  operating  budget  categories.  These  are  peacetime  costs. 

In  addition  the  cost  factors  for  some  of  these  categories  may  vary  by 
peacetime  stations.  FCIS  currently  represents  six  peacetime  stations. 
Actually  132  cost  factors  are  available  for  each  unit.  Table  1  shows 
the  budget  categories  and  peacetime  stations  currently  used.  To  con¬ 
dense  this  data  into  the  one  cost  type  for  each  CONFORM  model,  the  user 
specifies  a  linear  combination  of  the  32  budget  categories  and  of  the 
six  peacetime  stations.  Costs  are  dimensioned  in  dollars  in  the  data 
file,  but  are  scaled  in  millions  of  dollars  for  use  in  CONFORM. 
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Table  1 


CURRENT  BUDGET  CATEGORIES  AND  PEACETIME  STATIONS 

OF  FCIS 


_ Budget  Categories 

Initial  Investment 


1.  FEMA  Major  Equipment 

2.  PEMA  Operational  Readiness  Float 
3*  PEMA  Repair  Cycle  Float 

4.  PEMA  Repair  Parts 

5.  OMA  Repair  Parts 

6.  OMA  Minor  Equipment 

7.  OMA  Station  Equipment 

8.  OMA  Original  Clothing 

9.  OMA  Program  4 

10.  OMA  Program  7S 

11.  OMA  Accession  and  Training 

12.  MPA  Accession  and  Training 

13.  PEMA  Accession  and  Training 

14.  MPA  Initial  PCS 

Annual  Operating 

1.  PEMA  Major  Equipment 

2.  PEMA  Repair  Parts 

3.  PEMA  Ammo 

4.  PEMA  Missiles 

5.  OMA  Programs  1  and  2 

6.  OMA  Base  Operations 

7.  OMA  Aircraft  Operations 

8.  OMA  Program  4 

9.  OMA  Program  7M 

10.  OMA  Program  7S 

11.  OMA  Program  8m 

12.  OMA  Program  80 
13*  OMA  Program  9 

14.  OMA  Accession  and  Training 

15.  MPA  Accession  and  Training 

16.  PEMA  Accession  and  Training 

17.  MPA  (Annual  Excluding  PCS) 

18.  MPA  (Annual  PCS) 
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Table  1  (continued) 


Budget  Categories 
Peacetime  Stations 


1.  CONUS 

2.  Europe 

3.  Korea 

4.  Alaska 

5 .  Southern 

6.  Vietnam 
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The  actual  uses  cf  cost  factors  In  the  model  are  discussed  through¬ 
out  this  chapter. 

STRENGTH  AND  COST  LIMITS 


Six  resource  limit  rows  are  always  generated.  They  are: 

(a)  TFSTRL.  Total  force  strength,  scaled  in  thousands  of  men. 

(b)  TCSTRL.  Total  combat  strength,  scaled  in  thousands  of  men. 

(c)  TSSTRL.  Total  support  strength,  scaled  in  thousands  of  men. 

(d)  TFCSTL.  Total  force  cost,  normally  scaled  in  millions  of 
dollars . 

(e)  TCCSTL.  Total  combat  cost,  normally  scaled  in  millions  of 
dollars . 


(f )  TSCSTL.  Total  support  cost,  normally  scaled  in  millions  of 
dollars . 

The  coefficients  of  all  of  these  rows  are  non-negative.  The  type 
of  each  row  is  individually  specified  by  the  user.  They  are  usually  £ 
or  =  their  positive  RHS  values.  The  types  are  specified  by  input  data 
set  RESCON. 


UNIT  MIX  CONSTRAINTS 


Several  constraints  on  the  ratios  of  the  number  of  selected  indi¬ 
vidual  units  in  a  force  may  be  specified.  Each  mix  constraint  may  be 
on  combat  and/or  support  units.  A  single  unit  type  may  appear  in  more 
than  one  mix  constraint.  The  most  likely  use  of  this  option  is  to  con¬ 
strain  combat  units  to  a  specified  mix  in  CONFORM  runs  in  which  combat 
units,  men  or  dollars  are  to  be  traded  for  support  units,  men  or  dollars 
(or  vice  versa),  and  in  which  the  resulting  combat  force  is  not  known 
in  advance.  Such  a  run  would  likely  have  one  mix  constraint  on  all 
combat  units. 

The  specification  of  each  mix  constraint  involves  the  input  to 
CONGEN  of  the  "mix  or  ratio  entry"  for  each  unit  in  the  mix  and  possible 
lower  and  upper  deviations  from  that  number.  For  example,  two  units 
maybe  constrained  to  be  in  the  ratio  3:2,  or  (3  +  -3):(2  +  .2).  The 
first  ratio  constrains  the  two  units  to  values  along  a  straight  line. 

The  ratio  with  10  percent  tolerances  only  constrains  the  two  units  to 


25 


<@) 


values  in  the  sector  defined  by  the  straight  lines  corresponding  to  the 
possible  extreme  ratios — 2. 7:2. 2  and  3«3:1*8*  Figure  9  illustrates  this 
example.  Tolerances  are  actually  specified  in  terms  of  fractions  of  the 
mix  entry,  e.g.,  the  specification  "2  +  0.1"  defines  the  range  "1.8  - 
2.2."  The  lover  and  upper  tolerances  are  individually  specified. 

The  number  of  unit  mix  constraints  plus  the  total  number  of  mix 
entries  can  be  no  greater  than  100. 

One  model  column  containing  the  mix  specification  is  generated  for 
each  mix  constraint.  One  rcw  is  generated  for  each  unit  in  the  mix  to 
couple  the  variable  representing  the  number  of  units  of  that  type  in 
the  force  to  its  entry  in  the  mix.  In  addition,  one  rov  and  one  or  two 
columns  are  generated  for  each  mix  entry  that  has  a  tolerance.  One 
column  is  generated  to  represent  the  amount  of  lover  deviation  from  the 
mix  entry  actually  taken,  and  one  column  for  upper  deviation.  One  rov 
ties  together  the  mix  column  and  the  one  or  tvo  tolerance  columns. 

The  name  of  the  mix  column  is 
[  "M","I","X",  i,  J,k] , 

where  ijk  is  the  sequence  number  of  the  mix,  from  one  to  the  number  of 
mixes,  in  the  order  input  by  the  user.  This  sequence  number  is  right- 
justified  with  zero  fill.  Thus  the  name  of  the  column  generated  for 
the  first  unit  mix  constraint  specified  by  the  user  is  "MIX001". 

The  name  of  the  row  coupling  the  variable  for  each  unit  to  its 
entry  in  the  mix  is 

["M",i,  J,k,"X",l,m,n,  ], 

where  ijk  is  the  mix  sequence  number  and  Imn  is  the  unit's  DTM  number. 
These  rows  are  equalities,  and  their  RHS  values  should  normally  be  zero. 

The  name  of  the  row  tying  together  the  mix  column  and  tolerance 
columns  is 

[  "M" ,  i,  j ,  k,  "T" ,  1,  m,  n] , 

where  ijk  is  the  mix  sequence  number  and  lmn  is  the  DTM  off  the  unit  on 
whose  mix  entry  tolerance  is  allowed.  These  rows  are  "less  than  or 
equal  to,"  and  their  RHS  values  should  normally  be  zero. 

The  names  of  the  lover  and  upper  deviation  columns  are 

t  "M",i,  j,k,"^",l,m,n], 
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a.  Two-Unit  Example  of  CONFORM  Unit  Mix  Constraint  without  Tolerance 


2.7:22 


0  NUMBER  OF  UNIT  TYPE  t 
IN  FORCE 


b.  Two-Unit  Example  of  CONFORM  Unit  Mix  Constraint  with  10  percent 
Lower  and  Upper  Tolerance  for  Both  Units 


Fig.  9— Two-Unit  Example  of  CONFORM  Unit  Mix  Constraint  without  and  with  Toloronco 


where  ijk  is  the  mix  sequence  number,  "U"  and  "L"  are  for  upper  and 
lower  deviation,  and  lmn  is  the  unit's  DTM  number. 

Figure  10  is  an  example  of  the  matrix  structure  for  an  unit  mix 
constraint  without  any  tolerance.  In  this  example,  combat  units 
902  and  903  are  constrained  to  be  exactly  in  the  ratio  10:3:5*  Figure 
11  is  an  example  of  matrix  structure  for  the  same  mix  constraint  but 
with  the  addition  of  tolerance  on  the  mix  entries.  Here  unit  901  is 
allowed  up  to  10  percent . lower  and  upper  deviation,  unit  902  is  allowed 
up  to  5  percent  lower  and  20  percent  upper  deviation,  and  unit  903  is 
allowed  50  percent  lower  and  no  upper  deviation.  In  this  case,  there¬ 
fore,  the  units  are  only  constrained  to  be  in  the  ratio  9-11:2.85-3.6: 
2.5-5* 

This  logic  is  easily  understood  by  looking  for  example  at  rows 
"M001T901"  and  "M001X901".  The  solution  value  of  "M001L901"  for  example 
can  be  no  greater  than  .10  of  the  solution  value  of  the  mix  column. 

"The  number"  to  which  the  solution  value  of  "C901"  must  be  equal  can 
therefore  be  anything  from  10.0  times  the  solution  value  of  "MIX001"  to 
(10.0  *  MIX001  -  10.0  *  M001L901)  =  (10.0  *  MIX001  -  10.0  *  .10  * 

MIX001)  =  (9.0  *  MIXOOl).  The  same  logic  holds  for  upper  deviations. 

In  general,  only  the  lower  deviation  or  the  upper  deviation  columns  will 
have  non- zero  solution  values. 

Unit  mix  constraints  are  specified  by  input  datum  UMIXSW  and 
following.  These  data  requirements  are  discussed  in  detail  in  Chapter 
3* 

ALLOCATION  RULE  COEFFICIENT  TOLERANCE 

Model  structure  may  be  generated  to  represent  maximum  permissible 
lower  and/or  upper  deviations  from  the  values  of  individual  allocation 
rule  coefficients.  These  tolerances  are  expressed  as  fractions  of  the 
coefficients.  Thus  if  "a"  is  a  coefficient  and  "dj"  and  "d„"  the 
maximum  lower  and  upper  deviations,  the  effective  coefficient  in  a 
solution,  a,  may  be  between  a  -  dxa  and  a  +  dua;  a  may  equal  a.  This 
generalization  from  a  specific  matrix  coefficient  is  straightforward; 
it  is,  however,  a  large  generalization. 
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Fig.  10—  Example  of  Matrix  Structure  for  THroo  Combat  Unit*  Constrained  to  tho  Ratio  10:3:5 
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A  single  specified  value  of  an  allocation  rule  coefficient  Is  very 
restrictive.  Figure  12  portrays  a  two- unit  force.  Unit  "u”  Is  the 
independent  variable,  perhaps  a  ccnbat  unit.  Support  unit  "s"  Is 
related  to  unit  "u"  by  an  allocation  rule  coefficient*— the  slope  of  the 
line.  The  number  of  support  units  "a"  In  a  force  must  be  on  the  line 
through  the  origin.  When  the  number  of  type  "u"  units  in  a  force  la 
given,  the  number  of  type  "sH  units  is  specified— la  a  single  point  on 
the  line.  This  Is  restrictive  and  In  same  cases  may  be  unrealistically 
so. 

Figure  13  shews  that  when  lower  and/or  upper  tolerance  Is  allowed 
on  a  coefficient,  when  the  number  of  type  "u"  units  Is  given,  the  number 
of  type  "s"  units  is  no  longer  a  single  point,  but  may  be  anywhere  on 
the  vertical  line  (without  considering  any  other  constraints).  No 
longer  a  single  line  relates  the  number  of  units  of  types  "u"  and  "a", 
but  a  sector  of  a  two-dimensional  quarter-space.  If  two  different  units 
"ux"  and  "i%"  require  unit  nsH,  then  the  line  of  Fig.  12  has  become  a 
two-dimensional  quarter  space  inclined  to  the  "ux"  axis  as  Its  coef¬ 
ficient  and  to  the  "i*"  axis  as  Its  coefficient.  Given  values  of  "ux" 
and  "us",  however,  "1"  Is  still  a  single  point.  If  tolerance  Is  allowed 
on  both  allocation  coefficients,  the  sector  of  the  two-dimensional 
quarter-space  In  Fig.  13  has  become  a  sector  of  a  three-dlmensl  xial 
quarter-space.  No  attempt  Is  made  to  picture  this  or  relations  of 
higher  dimensionality.  Also  the  case  when  unit  nsn  may  require  some 
unit  "s"  (some  of  itself)  Is  not  shown.  This  corresponds  to  a  constant 
Increase  of  the  slope  of  the  line  of  Fig.  12. 

One  model  row  and  one  or  two  model  columns  are  generated  for  each 
coefficient  on  which  tolerance  Is  allowed.  One  column  represents  the 
amount  of  lower  deviation  taken  In  a  solution,  and  one  column  Is  for 
upper  deviation.  Only  one  row  Is  needed  to  tie  these  columns  to  the 
coefficient. 

Figure  14  shows  the  logic  of  coefficient  lower  tolerance.  Note 
that  BtJl  sc  t!JL  *  Bj ,  i.e.,  the  tolerance  used,  or  actual  deviation  In 
a  model  solution  must  be  s  the  maximum  specif le<^—tj  jt . 
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Before  giving  actual  examples  of  this  model  option,  the  rev  and 
column  names  will  be  defined.  Ifte  names  of  the  tolerance  columns  are 
[i,J,k,"T",l,B,n,"2"], 

where  ijk  is  the  KM  number  of  the  supported  unit  (the  column  of  the 
coefficient),  Inn  is  the  KM  number  of  the  supporting  unit  (the  rew  of 
the  coefficient),  and  "U"  and  "L"  are  for  upper  and  lower  deviation. 

The  name  of  the  row  is 

l i, J ,k,  HT" ,  l,m,n,  "X"  ] , 

where  ijk  and  lmn  are  as  for  the  column  names. 

As  an  example,  consider  the  coefficient  of  allocation  of  support 
unit  24  to  combat  unit  902.  Assume  that  O.IU19  units  24  are  required 
per  one  unit  90S.  Also  assume  that  10  percent  lower  deviation  is 
allowed,  and  that  there  is  one  combat  unit  902  in  the  force.  Figure  15 
shews  the  matrix  structure  of  Interest  for  this  example. 

In  any  solution  of  this  model,  the  effective  value  of  this  alloca¬ 
tion  coefficient  may  be  between  0.1419  and  0.1277  (0.1419  -  0.01419). 

If  the  overall  model  structure  and  choice  of  objective  function  made  it 
attractive  for  this  coefficient  to  be  as  small  as  possible,  then  the 
solution  value  of  column  "902T024L"  would  be  0.10  and  the  effective 
coefficient  would  be  0.1277.  Note  that  the  tolerance  column  does  not 
intersect  any  other  rows,  and  is  thus  not  influenced  directly  by  any 
of  the  normal  CONFORM  objective  functions.  The  representation  of 
permissible  maximum  deviation  above  an  allocation  rule  coefficient  is 
analogous  to  that  for  lower  tolerance.  In  Fig.  14  "tljL"  would  be 
"tjjy",  "01JL"  would  be  and  rtj"  in  the  tolerance  column 

vector  would  be  "♦  r,j". 

Figure  16  is  Fig.  15  with  the  addition  of  a  column  vector  repre¬ 
senting  maximum  deviation  of  10  percent  above  the  coefficient. 

Practically,  only  lewer  or  upper  tolerance  on  a  single  coefficient 
will  be  used  in  a  solution.  Therefore  it  is  correct  to  use  only  one 
equation  to  couple  both  tolerance  column  vectors  to  the  combat  module 
column.  Here  model  rev  "902T024X"  specifies  that  the  solution  value  of 
column  "902T024L"  plus  the  solution  value  of  column  "902T024U"  may  be 
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no  greater  than  0.1  of  the  solution  value  of  column  "C902".  This  does 
allow  lower  tolerance  _or  upper  tolerance  assumed  in  a  solution  to  be 
the  maximum  allowed  (here  10  percent). 

Input  datum  TOLRSW  and  following  choose  this  option.  These  data 
requirements  are  discussed  in  Chapter  3* 


UNIT  GROUP  CONSTRAINT 

One  model  row  may  be  generated  that  constrains  the  ratio  of  some 

attribute  (strength,  cost,  etc.)  of  two  groups  of  units.  The  two  groups 

of  units  may  be  all  combat  and  all  support,  or  the  user  may  define  them 

by  specifying  the  DTM  numbers  of  the  units  to  be  included  in  each  group. 

The  structure  of  the  row  when  the  ratio  of  all  combat  units  to  all 

support  units  is  constrained  is 

vx  E  BjXj  +  wa  £  bjYj  *  0, 
all  all 

combat  tapport 

units  units 

where  wx  is  a  weighting  factor  (positive  or  negative)  for  all 
combat  units 

aj  is  the  attribute  of  combat  unit  J 

Xj  is  the  number  of  combat  units  of  type  j  in  the  force 
wa  is  a  weighting  factor  (positive  or  negative)  for  all 
support  units 

bj  is  the  attribute  of  support  unit  J 

Yj  is  the  number  of  support  units  of  type  j  in  the  force. 

Each  weighting  factor  applies  to  the  whole  group,  and  a  different 

attribute  may  be  used  for  each  group,  although  only  one  attribute  may 

be  used  per  group.  Thus  if  it  is  meaningful  to  do  so  for  example, 

total  combat  strength  may  be  compared  to  total  support  cost. 

The  structure  of  the  row  when  the  user  defines  each  group  is 

E  WjajXj  +  E  VjbjYj  *  0, 

all  all 

units  in  units  in 

group  1  group  2 
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where 


v}  Is  the  weighting  factor  (positive  or  negative)  for  unit 
j  in  group  1 

aj  is  the  attribute  of  unit  J  in  group  1 

Xj  is  the  number  of  units  of  type  J  in  group  1 

v}  is  the  weighting  factor  (positive  or  negative)  for  unit 
J  in  group  2 

bj  is  the  attribute  of  unit  J  in  group  2 

Yj  is  the  number  of  units  of  type  j  in  group  2. 

Here  the  weighting  factors  and  attribute  selection  are  individually- 
specified  for  each  unit  in  each  group.  One  unit  may  only  be  included 
in  one  group. 

To  clarify,  an  example  of  the  use  of  this  option  is  to  constrain 
total  combat  strength  to  be  greater  than  or  equal  to  sane  fraction  of 
total  support  strength. 

The  name  of  the  row  is 

[ "  G"  ,  " R" , "0" , "U" , "P" ] , 

and  it  is  always  a  "greater  than  or  equal  to  row".  Its  RHS  value 
should  nonnally  be  zero. 

This  option  is  selected  by  input  datum  GRPSW  and  following,  dis¬ 
cussed  in  detail  in  Chapter  3» 

SUPPORT  UNIT  SUBSTITUTIONS 

Model  columns  may  be  generated  to  represent  the  possible  substi¬ 
tution  of  one  support  unit  type  for  another  in  satisfaction  of  alloca¬ 
tion  rule  and  other  requirements  for  it.  Other  requirements  include 
the  "optional  unit"  and  "augmentation  unit"  concepts  of  the  Battalion 
Slice  model.  Up  to  100  such  substitutions  may  be  generated;  one  column 
is  generated  for  each  one.  For  each  one  the  user  must  specify  the  DTM 
number  of  the  unit  that  may  be  diverted  from  satisfaction  of  require¬ 
ments  for  it,  the  DTM  number  of  the  unit  to  satisfaction  of  whose 
requirements  the  first  unit  may  be  diverted,  and  the  rate  of  substitu¬ 
tion.  The  rate  is  expressed  as  the  equivalent  number  of  the  new  unit 
type  for  one  (1.0)  of  the  diverted  unit  type. 
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The  name  of  these  columns  is 

[i,J,k,"SV*B",l,m,n], 

where  ijk  is  the  DTM  number  of  the  diverted  unit,  and  lmn  is  the  DTM 
number  of  the  unit  to  whose  requirements  it  is  diverted. 

The  matrix  structure  for  one  sample  substitution  is  shown  in  Fig. 

17.  In  the  figure,  "z^12"  represents  allocation  rule  requirements  for 
unit  212,  and  "147a"  represents  allocation  rule  requirements  for  unit 
478.  The  number  of  units  of  type  212  in  the  force  must  be  equal  to  allo¬ 
cation  rule  requirements  for  unit  212  plus  the  number  of  units  212  that 
are  diverted.  The  rate  of  substitution  is  .35*  The  number  of  units  of 
type  478  in  the  force  plus  .35  times  the  number  of  units  212  that  are 
diverted  must  be  equal  to  allocation  rule  requirements  for  unit  478. 

Substitution  columns  do  not  intersect  any  rows  other  than  the 
allocation  rule  rows.  Thus  their  solution  values  are  not  influenced 
directly  by  any  objective  function,  but  only  indirectly. 

This  option  is  chosen  by  input  datum  SUBSW  and  following,  discussed 
in  detail  in  Chapter  3. 

OBJECTIVE  FUNCTIONS 

There  are  several  standard  alternative  objective  functions  in 
CONFORM  models.  In  addition  sane  model  rows  not  usually  thought  of  as 
objective  functions  may  be  so  used  in  certain  applications. 

TFSTRN 

TFSTKN  is  an  objective  function  that  is  the  total  force  strength, 
scaled  in  thousands  of  men.  The  coefficients  of  TFSTRN  are  all  non¬ 
negative.  TFSTRN  is  always  generated. 

TCSTRN 

TCSTRN  is  a  function  that  is  the  total  combat  strength,  scaled  in 
thousands  of  men.  The  coefficients  of  TCSTRN  are  all  non-negative. 

TCSTRN  is  always  generated. 

TSSTRN 

TSSTRN  is  a  function  that  is  the  total  support  strength,  scaled  in 
thousands  of  men.  The  coefficients  of  TSSTRN  are  all  non-negative. 

TSSTRN  is  always  generated. 
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TFCOST 


TFCOST  is  an  objective  function  that  is  the  total  force  cost.  Cur¬ 
rently  costs  are  in  millions  of  dollars  when  obtained  from  the  FCIS, 
but  the  user-specified  combining  of  budget  categories  into  one  cost  type 
may  also  scale  the  costs  into  s<  rthing  other  than  millions  of  dollars. 
The  coefficients  of  TFCOST  are  all  non-negative.  TFCOST  is  always 
generated . 

TCCOST 

TCCOST  is  a  function  that  is  the  total  combat  cost.  It  is  scaled 
exactly  as  TFCOST  above.  The  coefficients  to  TCCOST  are  all  non¬ 
negative.  TCCOST  is  always  generated. 

TSCOST 

TSCOST  is  a  function  that  is  the  total  support  cost,  scaled  exactly 
as  for  TFCOST  above.  The  coefficients  of  TSCOST  are  all  non-negative. 
TSCOST  is  always  generated. 

TDEV 

TDEV  is  an  objective  function  that  is  the  weighted  sum  of  all  com¬ 
bat  and/or  support  unit  deviations  modeled.  TDEV  is  only  generated  when 
combat  unit  shortfalls  and/or  combat  unit  longfalls  and/or  support  unit 
requirements  shortfalls  and/or  support  unit  requirements  longfalls  and/ 
or  support  unit  force  shortfalls  and/or  support  unit  force  longfalls  are 
modeled.  The  weighting  factor  types  are  individually  specified  for 
each  type  of  deviation.  The  weighting  types  may  be  strength  (thousands 
of  men),  cost  (millions  of  dollars),  number  of  units,  and  for  combat 
unit  deviations  only,  each  of  the  six  possible  combat  effectiveness 
indices.  The  coefficients  of  TDEV  are  all  non-negative.  Minimizing 
TDEV  is  equivalent  to  minimizing  the  absolute  value  of  unit  deviations 
from  requirements  and/or  target  values. 

Combat  Unit  Effectiveness  Indices 

Up  to  six  combat  unit  effectiveness  indices  may  be  represented  in 
a  single  model.  One  model  row  is  generated  for  each.  Both  the  name 
and  type  of  each  row  is  user- spec  if  led.  When  one  of  these  rows  is 
unconstraining  (neither  £,  =,  nor  is  RHS  value),  it  may  be  used  as  an 
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objective  function.  The  coefficients  of  all  such  rows  are  all  non- 
positive.  Thus  minimizing  (the  standard  sense  of  optimization  in  most 
MPSs)  one  of  these  functions  actually  maximizes  the  corresponding  index. 

Combat  Units 

One  basic  row  is  generated  for  each  combat  unit  in  the  model. 

These  rows  frequently  set  the  number  of  each  combat  unit  in  the  force 
to  their  RHS  value.  However,  the  type  of  each  row  is  individually 
specifiable  by  the  user.  When  one  of  these  rows  is  unconstraining 
(neither  s,  =,  or  *  RHS  value),  it  may  be  used  as  an  objective  func¬ 
tion.  The  names  of  these  rows  are 
[”C",i,j,k], 

where  ijk  is  the  DTM  number  of  the  unit. 

Support  Unit  Aggregates 

Up  to  25  aggregates  of  support  units  may  be  represented  in  a  model. 
These  may  correspond  to  function  areas.  For  each  one,  two  model  rows 
are  generated.  One  is  the  total  strength  (thousands  of  men)  of  the 
aggregate,  and  the  other  is  the  total  cost  (millions  of  dollars)  of  the 
aggregate.  The  names  of  these  rows  are  user  specified  as 
[a,b,"S","T","R"] 
and  [a,b,"C",,,S","T"), 

where  ab  is  two  characters  input  by  the  user.  The  type  of  each  of  the 
two  rows  for  each  aggregate  is  user  specified.  When  one  of  these  rows 
is  unconstraining  (neither  £,  =,  nor  *  RHS  value),  it  may  be  used  as  an 
objective  function.  The  coefficients  of  these  rows  are  all  non¬ 
negative  . 

Support  Unit  Aggregate  Deviations 

The  purpose  of  this  section  is  to  caution  the  user  against  the 
selection  as  objective  functions  of  seme  unconstrained  model  rows.  The 
rows  described  here  are  designed  primarily  for  reporting  purposes.  If 
support  unit  aggregates  are  represented  and  support  unit  requirements 
shortfalls  and/or  longfalls  are  represented,  two  model  rews  are  gener¬ 
ated  for  each  aggregate.  One  is  the  strength-weighted  sum  of  shortfalls 
(negative  coefficients)  and  longfalls  (positive  coefficients).  The 
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other  is  the  cost-weighted  sum.  These  rows  are  always  unconstraining 
and  thus  could  he  used  as  objective  functions.  Note  however  that  they 
do  not  have  all  non-negative  or  all  non-positive  coefficients.  Thus 
if  one  were  to  minimize  one  of  these  rows,  he  would  not  he  minimizing 
the  sum  of  the  absolute  deviations  hut  would  he  minimizing  the  total 
longfall  and  maximizing  the  total  shortfall  of  that  aggregate.  Like¬ 
wise,  maximizing  one  of  these  rcws  would  he  minimizing  the  total  short¬ 
fall  and  maximizing  the  total  longfall  of  that  aggregate.  The  names  of 
these  rows  are 

[ a,b, "S" , "T" , "R" , "R", "D"  ] 
and  [ a,b, "C" ,  "S  " ,  "T" , "R", "D"  ] , 

where  ah  are  the  same  two  characters  input  by  the  user  for  the  basic 
aggregate  row  names  mentioned  above. 

Likewise,  if  support  unit  aggregates  are  represented  and  support 
unit  force  shortfalls  and/or  longfalls  are  represented,  two  model  rows 
are  generated  for  each  aggregate  to  represent  the  strength  and  cost 
force  deviation  of  that  aggregate.  The  names  of  these  rows  are 
[a,b,"S",  "T" ,  "R" ,  "F"  ,  "D"  ] 
and  [ a  ,b,  "C" ,  "S" ,  "T" ,  "F" ,  "D" ] . 

To  actually  minimize  the  sum  of  the  absolute  deviations  of  one  or 
a  few  aggregates,  the  user  would  have  to  structure  a  special  objective 
function  which  is  a  subset  of  function  TDEV.  He  may  do  this  through  a 
revised  procedure  of  an  MPS. 

LP  MARGINAL  VALUES 

The  marginal  values,  pi-values,  or  dual  activities  of  LP  model 
rows  reported  as  part  of  the  solution  of  a  CONFORM  model  express  the 
rate  of  change  of  the  objective  function  used  in  the  solution,  relative 
to  changes  in  the  RHS  value  of  the  row.  In  general,  a  RHS  value  cannot 
be  changed  arbitrarily  without  violating  a  condition  of  the  LP  problem. 
The  marginal  values  are  generally  only  valid  when  interpreted  one  at  a 
time  and  over  a  certain  range.  The  range  of  validity  is  frequently 
small.  It  can  be  determined  by  use  of  procedures  included  in  most  MPSs. 

Some  special  properties  of  the  marginal  values  have  been  verified 
for  CONFORM  "base  case  runs."  In  a  base  case  run,  changing  the  RHS 

hi 


I 


value  of  a  combat  or  support  unit  changes  the  number  of  that  unit  and 
possibly  many  other  units  in  the  force.  If  the  objective  function  is 
total  force  strength,  the  marginal  values  express  the  rate  of  change  of 
the  total  force  strength  relative  to  a  change  in  the  number  of  one  unit 
type  (as  the  lst-order  effect).  It  is  thus  the  marginal  unit  slice 
strength — the  marginal  strength  of  the  unit  plus  its  support  tail.  It 
has  been  verified  that  the  range  of  validity  of  the  marginal  values  of 
combat  unit  rows  is  essentially  infinite.  Also,  the  marginal  values  of 
combat  units  are  mutually  exclusive.  Thus  if  the  marginal  value  of 
every  combat  unit  type  were  multiplied  by  the  number  of  that  unit  in 
the  force,  and  totaled,  that  total  would  be  the  total  force  strength  due 
to  allocation  rules.  Any  "optional,"  "augmentation,"  or  "deletion" 
support  units,  that  is  any  RHS  values  of  support  unit  allocation  rule 
rows,  are  not  accounted  for,  however. 

If  the  objective  function  were  total  force  cost,  then  the  marginal 
values  of  the  combat  units  would  be  the  slice  costs  of  units. 

For  support  units,  the  marginal  values  still  represent  the  unit's 
slice  strength  or  cost,  and  have  a  wide  range  of  validity,  but  they  are 
not  mutually  exclusive.  The  marginal  values  of  support  units  should 
only  be  interpreted  as  valid  one  at  a  time. 

For  all  CONFORM  models,  margim.l  values  present  useful  information 
about  infeasible,  feasible  and  optimal  solutions.  If  a  solution  is 
optimal,  the  marginal  values  Indicate  the  sensitivity  of  the  objective 
function  to  changes  in  RHS  valuea— changes  in  allocation  rules,  re¬ 
source  limits,  target  values,  deviation  limits,  etc.  If  a  solution  is 
not  feasible,  the  marginal  values  (relative  to  a  special  objective 
function)  express  the  sensitivity  of  the  Infeasibility  to  changes  in 
RHS  values.  Because  the  non- zero  marginal  values  identify  the  rows  in 
which  changes  directly  influence  infeasibility,  the  analyst  is  often 
able  to  localize  model  troubles  quickly.  He  may  find  that  one  or  more 
RHS  values  were  not  input  or  were  input  with  the  wrong  sign(s). 

In  seme  CONFORM  applications,  the  question  may  be  whether  or  not 
a  certain  set  of  force-planning  constraints  and  policies  is  feasible. 

In  these  cases,  an  infeasible  solution  may  be  an  acceptable  solution, 
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and  not  indicative  of  improper  model  formulation/ generation.  Also  in 
these  cases,  the  marginal  values  vould  be  an  indication  of  why  the 
answer  is  "not  feasible." 

In  general,  marginal  values  are  only  compared  to  one  another  to 
see  their  relative  values,  rather  than  interpreting  their  absolute 
values. 


Chapter  3 
MODEL  GENERATION 


INTRODUCTION 

Chapter  2  shored  that  the  CONFORM  modeling  logic  implies  a  large 
number  of  actual  CONFORM  LP  models.  The  appropriate  If  model  for  each 
CONFORM  run  is  generated  automatically  by  a  computer  program— CONGBf . 
CONGEN  accepts  input  that  defines  a  CONFORM  If  problem  and  produces  a 
complete  If  problem  file  In  a  form  acceptable  by  one  of  several  com¬ 
mercially  available  computer  programs  far  the  solution  of  If  problems. 
CONGEN  belongs  to  the  class  of  computer  programs  usually  called  "If 
Matrix  Generators."  CONGEN  translates  the  defining  input  to  a  complete 
problem  file  much  more  quickly  and  accurately  than  is  possible  by  any 
manual  process.  Of  course,  the  development  of  CONGEN  consumed  mare 
effort  than  would  have  been  required  to  manually  produce  a  single  CON¬ 
FORM  model.  However,  the  finished  CONGEN  permits  rapid,  accurate 
generation  of  different  CONFORM  If  models  as  needed;  a  single  manually- 
produced  model  would  have  been  obsolete  before  it  was  completed. 

The  principal  data  sources  far  CONGEN  are  the  allocation  rule 
coefficient  data  files,  the  troop  list,  and  the  cost  data  file  of  a 
Battalion  Slice  run  to  specify  basic  CONFORM  model  structure,  and  the 
selection  of  modeling  option*  by  the  CONFORM  user.  The  principal  out¬ 
put  of  CONGEN  is  the  thousands  of  card- images  that  define  the  LP  nod  il . 
Typical  CONFORM  problem  files  have  comprised  12,000  to  16,000  card- 
images,  6000  of  which  are  directly  related  to  the  Battalion  Slice 
allocation  rule  coefficients. 

This  chapter  in  general  treats  CONGBf  as  a  "black  box,"  while  dis¬ 
cussing  its  Inputs  and  outputs  in  detail.  Detailed  discussion  of  CONGEN 
itself  is  deferred  to  its  program  documentation  in  Appendixes  B  and  C. 
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CON GEN  EXECUTION 


An  LP  model  consists  of  many  variables  (columns),  and  equations  or 
constraints  (rows).  Each  oust  be  Identified  uniquely.  The  exact  posi¬ 
tion  of  any  probleta  coefficient  (matrix  elesent)  nay  be  specified  by  the 
Identifiers  of  the  corresponding  equation  and  variable.  COiiGQI  generates 
only  the  equations  and  variables  desired  and  supplies  unique  Identifiers 
for  all  equations  and  variables  generated.  An  equally  important,  but  In 
many  respects  easier  CONGO!  role  is  the  generation  of  appropriate 
numerical  values  of  matrw.  elements.  The  currently  available  LP  solu¬ 
tion  systems  do  not  require  rero-valued  elements  to  be  Included  within 
a  problem  file;  accordingly,  OONGDi,  with  a  few  exceptions,  Is  limited 
to  the  non-null  Information  defining  a  CONFORM  LP  model. 

Frequently,  not  only  ooe  but  several  different  CONFORM  LP  models 
may  be  generated  to  address  a  force  planning  problem.  Only  one  model 
is  generated  at  a  time,  and  the  one  produced  is  as  chosen  by  the  user/ 
analyst.  The  many  modeling  options  place  a  greater  burden  on  the  user. 
The  use  of  CONGEN  requires  the  selection  of  one  model  from  among  several 
reasonable  and  permitted  designs.  However,  the  options  provide  the 
opportunity  to  address  a  wide  variety  of  force  planning  problems  with 
corresponding  LP  models. 

The  output  of  COHGSi  Is  readable  by  an  analyst  and  by  commercial 
LP  solution  systems.  An  LP  solution  system  for  third  generation  com¬ 
puters  Is  coamionly  Identified  as  a  Mathematical  Programming  System,  or 
simply  as  KPS.  CCNGDI  Is  operational  at  USAMS8A  on  Its  IBM  3&>/65 
computer  system  and  at  RAC  on  Its  CDC  6U00  computer  system.  At  either 
Installation  CONGO  may  generate  matrices  In  a  format  of  IBM's  MPS/36O 
or  CDC's  OPTIMA  solution  system. 

Although  some  KPSa  accept  randomly  order  matrix  Input  files,  most 
analysts  prefer  to  read  and  check  well-ordered  files.  Matrix  generators 
that  produce  problem  files  by  expansion  or  repetition  of  data  through 
successive  similar  model  subaatrlces  or  similar  vectors  (columns  or 
rows)  may  provide  appropriate  column  or  row  order  without  sorting. 

COKGBt  generates  matrices  column-by-column;  the  output  file  Is  well 
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ordered  exactly  at  produced.  Tbe  column  order  (vlth  all  options 
exercised)  Is: 

(a)  Par  each  caaba t  unit  type. 

(1)  Tbe  unit  variable. 

(2)  Tbe  unit  shortfall  variable. 

(3)  Tbe  unit  longfhll  variable. 

(b)  For  each  support  unit  type. 

(1)  Tbe  unit  variable. 

(2)  Tbe  unit  requirements  shortfall  variable. 

(3)  The  unit  requirements  longfall  variable. 

(M  Tbe  unit  force  short  ft  11  variable. 

(5)  Tbe  unit  force  longfall  variable. 

(c)  Far  A -matrix  (by  combat  unit  type)  and  B-matrlx  (by  supported 
support  unit  type)  coefficients. 

(1)  Allocation  rule  coefficient  lover  deviation  variable. 

(2)  Allocation  rule  coefficient  upper  deviation  variable. 

(d)  For  each  unit  alx. 

(1)  Tbe  mix  variable. 

(2)  For  alx  entries. 

(1)  Upper  tole  re  nee  variable. 

(11)  Lower  tolerance  variable. 

(e)  Support  unit  substitution  variables. 

There  are  three  ssdes  of  Input  to  COMB.  First,  the  be  sic 
structural  data  defining  allocation  rules  and  unit  Identification 
numbers,  titles,  strengths  and  costs  nay  be  automatically  read  from  the 
outputs  (and  Inputs)  of  a  Battalion  Slice  run,  vlth  the  CORTOIM  user/ 
analyst  choosing  other  model  options. 

Second,  the  basic  structural  data  used  In  a  previous  00MB  run 
nay  be  restored  for  tbe  current  run  by  reading  a  data  file  produced 
In  that  previous  run,  vlth  tbe  user/analyst  choosing  other  options. 

Third,  all  data  nay  be  hand-prepared  by  tbe  user.  This  mode  nay 
be  useful  for  addressing  some  problems  by  generating  and  solving  saall 
codeia -ooca  vlth  only  a  few  unit  types.  These  unit  types  nay  be 
notional  units  representing  aggrepites  of  actual  unit  types. 


The  output  of  OONQdt  It  input  to  •  KPS  far  solution;  this  solution 
step  Is  the  subject  of  Chapter  4.  Optional  reports  may  be  automatically 
prepared  from  the  IP  solution  by  the  CONFORM  LP  reporter,  CONREP;  this 
step  Is  discussed  In  Chapter  5* 

DATA  REQUIRZKSfTS 

For  each  IP  model  to  be  generated,  CON  GEN  requires  data  to  define 
In  term  of  combat  force  and  support  unit  allocation  rules  the  theater 
to  be  modeled,  characteristics  of  unlt.i,  upper  and  lover  limits  on 
various  strength  and  cost  subtotals,  values  of  any  tolerances  to  be 
employed,  and  the  selection  of  other  optional  features.  This  data  Is 
read  by  CON  GEN  from  magnetic  tapes  and/or  disk  files  and  cards  produced 
by  Battalion  Slice,  and  cards  punched  by  the  CONGER  user  and/or  produced 
by  a  previous  CON GEN  run. 

As  previously  stated,  there  are  three  input  data  modes:  (1)  basic 
structure  specified  by  the  output  tapes  of  a  Battalion  Slice  run,  with 
COHGER-user-speclfled  tolerances  and  options;  (2)  basic  structure 
specified  by  a  binary  data  file  produced  on  a  previous  CONGER  run,  with 
user-specified  tolerances  and  options;  and  (3)  all  user-prepared  data. 

Each  of  these  Input  modes  la  separately  discussed.  They  are  com¬ 
pared  In  Fig.  18,  a  schematic  diagram  of  the  CONGER  input  data  process. 
All  data  Is  normally  read  from  system  lnput/card  reader  unless  other¬ 
wise  noted. 

Input  from  Battalion  Slice  Model 

In  this  section  each  Input  data  Item  for  CONGER  matrix  generation 
based  on  Battalion  811ce  output  la  discussed  In  the  order  In  which  It  is 
Input  to  CONGO .  Where  appropriate,  data  Items  are  referred  to  by  the 
names  of  the  corresponding  CONGER  variables  and  arrays.  Where  space 
permits,  these  names  are  repeated  as  card  titles  on  the  right  hand  side 
of  actual  data  cards.  Card  titles  are  not  read  by  CONGEN;  they  are  only 
Included  to  help  document  the  data.  Some  sample  data  values  are  given, 
and  a  complete  sample  data  set  Is  listed  In  Appendix  A. 

ipSNhM.  This  datum  Is  the  name  of  the  IP  model  to  be  generated. 

It  may  be  from  one  to  six  characters,  abiding  by  any  specific  naming 
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•FTMftOOl  it  »*  tile*  FT40F00I. 
+FTO#FOOJ  it  *i  Slit*  FT73FOOI. 
*FTI0F001  It  Itt*  •  *r*«i**t  COHCEN  rwn. 
*FT0IF003  it  •*  Slit*  FTS500I. 


f  If-  1I-C0M6IM  lapvt  Data  Strwttwr*  (cant‘4) 


conventions  of  the  MPS  in  whose  format  the  model  is  to  be  generated  (see 
data  item  LANGSW).  It  is  written  on  the  "NAME"  card  (for  MPS/36O)  or 
"FILE"  card  (for  OPTIMA)  at  the  beginning  of  the  matrix  row  identifica¬ 
tion  file  (unit  7). 

Input  format: 

A4,A2 

one  value,  on  one  card,  left- justified  in  columns  1-6, 

always  input. 

A  sample  PRBNAM  card  is  shown  in  Fig.  19. 

LANGSW.  The  value  of  LANGSW  specifies  the  MPS  in  whose  format  the 
matrix  is  to  be  generated. 

LANGSW  -  1  ...  IBM's  MPS/36O 

2  ...  CDC's  OPTIMA. 

Input  format: 

12 

one  value,  on  one  card,  in  column  2,  always  input. 

A  sample  IANGSW  data  card  is  shown  in  Fig.  19. 

DATSOR.  The  value  of  DATSOR  specifies  the  source  of  the  basic 
structural  data,  and  thus  which  of  the  three  input  data  modes  is  being 
used. 

DATSOR  »  1  ...  basic  structural  data  is  read  from  Battalion  Slice 
model  output  tapes  and  card  deck 
2  ...  basic  structural  data  is  hand-prepared 

5  ...  basic  structural  data  as  specified  for  a  previous 

CONFORM  run  is  restored  by  reading  a  binary  file, 
unit  10,  of  data  produced  by  that  run. 

Of  course,  for  this  mode  of  input,  DATSOR  always  -  1. 

Input  format: 

12 

ooe  value,  on  one  card,  in  column  2,  always  input. 

A  sample  DATSOR  card  is  shown  in  Fig.  19. 

Battalion  Slice  Model  Pitputa.  Basic  structural  data  is  read  from 
Battalion  Slice  model  output  (and  input)  tapes  and  solution  card  deck. 
CONGO!  reads  the  A-oatrlx  (and  other  data)  tape  (Battalloo  Slice  unit 
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40  produced  by  APROG),  a  B-matrix  tape  produced  specially  for  CONGEN 
(unit  75  produced  by  BPROG),  the  Battalion  Slice  extraction  from  the 
FCIS  tape  (unit  85),  and  the  troop  list  card  deck  which  is  produced  by 
DPROG.  The  three  tape  files  are  assumed  by  CONGEN  to  follow  one  another 
in  that  order  on  CONGEN  unit  8.  The  troop  list  card  deck  immediately 
follows  the  DATSOR  card.  CONGEN  ignores  sane  blocks  of  data  on  the  A- 
matrix  tape  and  cost  tape;  and  CONGEN  execution  is  not  impaired  if  there 
is  no  cost  data  for  some  units.  The  following  data  is  obtained  from 
the  A-matrix  tape: 

(a)  NCOMBT.  The  number  of  combat  unit  types.  NCOMBT  must  be  £  60. 

(b)  DTM(i),  for  i  *  1  to  NCOMBT.  The  Battalion  Slice  DTM  identi¬ 
fication  numbers  (less  900)  of  each  of  the  NCOMBT  combat  unit  types. 
CONGEN  increments  them  by  900  before  using  them.  Also  the  unit  title  is 
read  and  passed  to  CCNREP. 

(c)  Number  of  "parameterized"  unit  types  and  their  BUM  numbers. 
CONFORM  model  logic  treats  the  Battalion  Slice  parameterized  units  as 
any  other  support  unit. 

(d)  NSUPRT.  The  number  of  support  unit  types.  This  number  in¬ 
cludes  the  number  of  unique  parameterized  units.  NSUPRT  must  be  *  700. 

(e)  Requirements  for  support  units  by  combat  units.  Far  esch  of 
the  NSUPRT  support  unit  types,  its  BUM  number  end  the  number  of  units  of 
that  type  required  by  the  number  of  each  combat  unit  in  the  force  is 
read.  Also  the  unit,  title,  and  SRC  and  TPSN  numbers  are  read  and  passed 
to  CONREP.  The  order  of  appearance  of  these  NSUPRT  support  unit  types 
is  the  order  in  which  they  are  modeled.  Only  requirements  greater  than 
zero  are  stored.  They  are  stared  in  CONGEN  array  C0EF(8000),  starting 
in  word  one.  CONGEN  variable  NANZ  is  a  count  of  these  positive  coef¬ 
ficients  ond  those  read  below  for  the  "parameterized"  units.  It  Is  the 
number  of  CONFORM  A-matrlx  coefficients.  These  coefficients  are  later 
divided  by  the  number  of  the  appropriate  combat  unit  type  In  the  force 
for  use  In  the  CONFORM  model  on  a  per  unit  basis.  "Parameterized"  units 
are  Included  here,  but  without  specification  of  any  coefficients. 

(f)  Requirements  for  parameterized  units  by  combat  units.  For 
each  parameterized  unit,  the  number  of  units  of  that  type  required  by 


the  number  of  each  combat  unit  type  in  the  force  is  read.  Only  coef¬ 
ficients  greater  than  zero  are  stored.  The  coefficients  are  counted  as 
part  of  the  NANZ  CONFORM  A-matrix  coefficients  and  are  also  stored  in 
CONGEE  array  C0EF(800O).  These  coefficients  are  also  later  divided  by 
the  number  of  the  appropriate  combat  unit  type  in  the  force. 

From  the  B-matrix  tape  is'j^ead  the  requirements  for  support  units 
by  support  units.  Only  coefficients  greater  than  zero  are  stored,  and 
they  are  already  on  a  per-unit-basis.  They  are  also  storeu  in  CONGEE 
array  C0EIF(6500),  starting  in  word  NANZ  +  1.  NBNZ  is  a  count  of  the 
number  of  these  B-matrix  coefficients. 

The  next  data  to  be  read  from  system  input  is  the  card  deck  troop 
list  from  the  Battalion  Slice  run.  The  entire  deck  as  produced  by  the 
Battalion  Slice  DPROG  procedure,  Including  the  header  card  and  "999" 
terminator  card  is  Included.  From  this  data  is  read  the  strength  of 
each  unit  and  the  number  of  each  combat  unit  type  in  the  run.  These 
latter  values  are  used  to  convert  the  A-matrix  coefficients  into  a  per- 
unit  form.  Sample  troop  list  cards  are  listed  in  Fig.  20. 

Next  the  Battalion  Slice  extraction  from  the  FCIS  is  read.  This 
tape  contains  one  record  per  unit  in  the  data  bank.  Each  record  con¬ 
tains  the  DIM  number  of  the  unit  and  132  unit  coats  corresponding  to  32 
budget  categories,  the  cost  of  acme  of  which  may  vary  by  six  peacetime 
stations.  Table  1  shows  the  budget  categories  and  peacetime  stations 
currently  used.  Each  CONFORM  model  has  one  cost  function.  It  is  a 
linear  combination  of  the  32  budget  categories  and  6  peacetime  stations. 
Thus  such  cost  functions  as  "total  initial,"  "total  annual  operating 
cost,"  "initial  plus  ten  years  operating  cost,"  and  "initial  plus  ten 
years  operating  cost  discounted  at  10  percent"  may  be  represented,  each 
with  a  particular  assumed  distribution  of  units  at  peacetime  stations, 
such  as  "5/6  in  CONUS  and  l/6  in  Europe."  To  specify  the  cost  function, 
two  data  items  which  are  prepared  by  the  CONFORM  user  ere  read  from 
system  input  before  the  coat  data  tape  is  read.  They  are: 

(a)  AVGCST.  A  multiplier  for  each  of  the  32  budget  categories. 

Input  format: 

1*8.6 

10  values  per  card  (up  to  ten  on  the  last  card). 
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(b)  AVGSTA.  A  multiplier  for  each  of  the  six  peacetime  stations. 
These  fractions  should  usually  sum  to  1  (1.0). 

Input  format: 

6E8.6 

o lx  values  on  one  card. 

Sample  AVGCST  and  AVGSTA  data  cards  are  shown  in  Fig.  21. 

The  cost  tape  is  then  read,  and  a  single  unit  cost  factor  as  speci¬ 
fied  by  AVGCST  and  AVGSTA  is  stored  for  use  by  CONGEN.  It  is  permis¬ 
sible  for  the  cost  tape  not  to  have  data  for  some  units  modeled  or  to 
have  data  for  units  not  modeled  in  a  CONFORM  run.  Costs  are  dimensioned 
in  dollars  in  the  data  file,  but  are  scaled  in  millions  of  dollars  by 
CONGEN. 

NEFF,  EFFIAB,  EFF.  Up  to  six  indices  of  combat  unit  effectiveness 
may  be  represented  in  a  CONFORM  model.  NEFF  is  the  number  to  be  repre¬ 
sented.  One  row  in  the  model  is  generated  for  each  index  represented. 
EFFLAB  is  a  six-character  name  and  the  type  of  each  row.  EFF  is  the 
index  value  for  each  index  modeled  for  each  combat  unit  type  modeled. 

Input  format: 

NEFF  and  EFFIAB  are  input  on  one  card  under  format 
(I3,7X,6(A1*,A2,2X,A1,UC)). 

The  first  field  is  the  value  of  NEFF.  The  next  six  fields  are  the  name 
(AU,A2)  and  type  (Al)  of  the  model  row  for  each  index.  The  name  can  be 
any  six  characters  consistent  with  the  naming  conventions  of  the  MPS  in 
whose  language  the  model  is  to  be  generated  (see  input  datum  IANGSW). 

The  value  of  the  row  type  indicator  may  be: 

...  total  value  of  that  combat  Index  <  RHS  value, 
blank  ...  total  of  index  -  RHS  value. 

...  total  of  index  *  RHS  value. 

"F"  ...  total  of  index  unconstrained  by  RHS  value. 

One  additional  card  for  each  ccmbat  unit  type  modeled  specified  the 
actual  Index  values  on  a  per- unit-basis .  ,lf  NEFF  is  xero,  no  additional 
cards  should  be  input.  The  format  of  these  cards  is 
(10X,6E10.6). 
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Sanple  KEFF,  EFFIAB  and  EFT  data  cards  are  shown  In  Pig.  22.  In 
the  exaEple#  DW  nutiber  of  the  unit  baa  been  Included  In  the  first 
three  colusns  of  each  of  the  EFT  data  cards. 

EICON.  The  values  of  NCON  sjeclfy  the  type  of  the  row  for  each  ccsb 
bat  unit  type. 

NCON(l)  ■  ...  the  nueber  of  units  of  ccabat  unit  type  1  a 

the  RHS  value  of  Its  row. 

blank  ...  the  nuaber  of  units  of  caabat  unit  type  1  • 
the  RHS  value  of  its  row. 

...  the  nuaber  of  units  of  caabat  unit  type  l  * 
the  RHS  value  of  Its  rev. 

"F"  ...  the  nusiber  of  units  of  caabat  unlu  type  1 

unconstrained  by  the  RHS  value  of  Its  row. 

Input  fonaat: 
d(Al,9X) 

'OKBT  values  on  NCCKBT/8  cards,  always  Input, 
w^nplc  KCON  data  Is  shown  In  Fig.  23* 

RESCON.  The  values  of  RECCOK  specify  the  types  of  the  six  re¬ 
source  constraints. 

RESCON ( 1 )  «  type  of  constraint  on  total  force  strength,  row 
"TFSTRL". 

RESCON (2 )  -  type  of  constraint  on  total  coabet  strength,  row 
"TCSTRL". 

RESCON (3 )  -  type  of  constraint  on  total  support  strength,  row 
"TSCTRL". 

RESCON )  -  type  of  constraint  on  total  force  cost,  row 
"TFCSTL". 

RESCON ( 5 )  •  type  of  constraint  on  total  ccnbot  coat,  row 
"TCCSTL". 

RESCON (6)  -  type  of  constraint  on  total  support  cost,  row 
"TSCSTL". 

RESCON(l)  -  ...  resource  1  «  RHS  value 

blank  ...  resource  l  -  RHS  value 
...  resource  1  *  RHS  value 
"P"  ...  resource  1  unconstrained  by  RHS  value. 
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Input  farnat: 
o(AI,9X) 

six  values  on  one  card,  always  Input. 

Sample  •  RESCON  data  Is  shown  In  Fig.  2k. 

AUTTYP.  The  value  of  ALRTYP  specifies  the  type  of  all  allocation 
rule  rows. 

ALRTJfP  ■  ...  all  allocation  rule  rows  a  RHS  value 

blank  ...  all  allocation  rule  rows  ■>  RHS  value 
...  all  allocation  rule  rows  2  RHS  value 
" F"  ...  all  allocation  rule  rows  unconstrained  by 

RHS  value. 

Input  format: 

Al 

one  value,  on  one  card,  always  input. 

A  sample  ALRTYP  data  card  Is  shown  in  Fig.  2k. 

TOLRSW.  TOLRSW  Is  an  Integer  variable  used  as  a  logical  switch  to 
specify  whether  or  not  tolerance  on  individual  allocation  mile  coef¬ 
ficients  nay  be  allowed  at  all  In  a  particular  model. 

TOUSV  -  1  ...  lower  and/or  upper  deviations  from  coefficients 
allowed;  tolerances  are  specified  below, 
otherwise  ...  no  coefficient  tolerance  Is  allowed;  no 

attempt  is  made  by  CONGEH  to  read  any  tolerance 
specifications  below. 

Input  format: 

12 

one  value,  on  one  card,  in  column  2,  always  Input. 

Allocation  Rule  Coefficient  Tolerance  Specification.  If  alloca¬ 
tion  rule  coefficient  tolerance  may  be  allowed  at  all  (TOLRSW,  above, 

»  1)  this  data  sequent  specified  any  allowable  deviations  from  the 
coefficient.  This  data  segnent  must  have  a  header  card 
card  columns 


1  -  7 
COEFTOL 

and  a  trailer  card 
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card  columns 
1  -  8 
ENDCFTOL. 

Between  these,  one  card  Is  Input  for  each  coefficient  for  which  toler¬ 
ance  is  to  be  allowed.  Each  card  identifies  the  coefficient  on  which 
tolerance  is  allowed  by  the  DIM  number  of  the  supported  and  supporting 
unit  types,  and  the  maximum  allowable  upper  and  lower  deviation  from 
the  coefficient  in  terms  of  decimal  fractions.  If  tolerance  is  speci¬ 
fied  for  a  nonexistent  coefficient,  the  tolerance  is  Ignored,  a  dlagnos 
tic  message  is  written  and  CONGEN  execution  (data  input)  continues. 
Sample  coefficient  tolerance  data  cards  are  shown  in  Fig.  25. 

Input  format: 

( 9X,  13, 2X,  13,  Ux,  5X,  E12 . 6,  E12 . 6 ) 

four  values  (supported  unit  DIM  number,  supporting  unit  DIM 
number,  maximum  upper  deviation,  and  maximum  lower  deviation) 
per  card,  not  input  if  TOLRSW  /  1. 

SUBSW.  SUBSW  is  an  integer  variable  used  as  a  logical  switch  to 
indicate  to  CONGEN  whether  or  not  substitutions  of  support  unit  types 
in  satisfaction  of  allocation  rules  may  be  represented  at  all. 

SUBSW  =  1  . . .  support  unit  substitutions  may  be  repre¬ 
sented  in  the  model;  those  allowed  are 
specified  belcw 

otherwise  ...  no  support  unit  substitutions  may  be  repre 
sented;  no  attempt  is  made  by  CONGEN  to 
read  any  substitution  header,  data  or 
trailer  cards  below. 

Input  format: 

12 

one  value,  on  one  card,  in  column  2,  always  input. 

Allowable  Support  Unit  Substitutions  Specifications.  If  substitu¬ 
tion  of  support  unit  type  in  satisfaction  of  allocation  rules  may  be 
allowed  at  all  (SUBSW,  above,  =  l),  this  data  segment  specifies  any 
allowable  substitutions  in  this  model.  This  data  segnent  must  have  a 
header  card 
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6k 


1 


card  column 


1  -  8 

unnsuBS 

and  a  trailer  card 

card  columns 


1  -  7 
ENDS UBS. 

Between  these,  one  card  Is  Input  for  each  allowable  substitution.  Each 
of  these  cards  specifies  the  DIM  masher  of  the  unit  type  which  aay  be 
substituted,  the  DIM  number  of  the  unit  type  for  which  It  aay  be  sub¬ 
stituted,  and  the  rate  at  which  It  aay  be  substituted.  For  example, 

DIM  1  nay  be  substituted  for  DIM  J  at  the  rate  of  x  DIM  J  equivalents 
for  each  DIM  1  substituted.  Figure  26  shows  saaple  support  unit  sub¬ 
stitution  Input  data  cards. 

Input  foraat: 

(9X,I3,2X,I3,1»*X,5X,E12.6) 

three  values  (substituted  unit  DIM  number,  replaced  unit  DIM 

number,  and  rate  of  substitution)  per  card  not  Input  If 

SUB SV  i  1. 

UMIXSW.  UMIXSW  Is  an  Integer  variable  used  as  a  logical  switch  to 
Indicate  to  CONGEN  whether  or  not  constraints  on  the  mix  of  units  may 
be  represented  at  all  In  a  model. 

UMIXSW  ■  1  ...  unit  mix  constraints  may  be  represented; 

those  mixes  desired  are  specified  below 
otherwise  ...  no  unit  mix  constraints  are  to  be  repre¬ 
sented;  no  attempt  is  made  to  read  header, 
data  or  trailer  cards  below. 

Input  format: 

12 

one  value,  on  one  card,  In  column  2,  always  Input. 

Unit  Mix  Constraints  Specifications.  If  any  unit  mix  constraints 
may  be  represented  at  all  (UMIXSW,  above,  -  l),  this  data  segnent  speci¬ 
fies  any  desired  in  this  model.  This  entire  data  segnent  must  have  a 
trailer  card 
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/ 


card  coluans 


1  -  8 
OTOMIXES. 

A  header  card 

card  coluenc 
4-6 
MIX 

and  a  trailer  card 

card  coluans 
1  -  6 
EKDKIX 

Bust  be  Included  for  each  unit  alx  constraint  specified.  One  data  card 
Is  Input  for  each  entry  In  each  alx  constraint.  Each  of  these  cards 
Inputs  the  DIM  nunber  of  the  unit  In  the  alx,  Its  entry  In  the  alx 
(such  td  "x"  In  "unit  1  Is  to  unit  J  as  x  Is  to  jr"),  and  the  maximum 
allowable  upper  and  lower  deviation  fron  this  entry  In  terns  of  declaal 
fractions  of  the  entry.  The  ratio  of  nore  than  two  unit  types  nay  be 
controlled  In  any  one  constraint,  and  one  unit  type  aay  appear  In  nore 
than  one  constraint.  Figure  27  shows  sone  exaaples  of  unit  nix  con¬ 
straint  Input  data.  The  nunber  of  nix  constraints  plus  the  total 
nunber  of  nix  entries  cost  be  a  100. 

Input  fomat: 

(ICOC,  13, 5X,E12.6,5X,E12.6,5X,  112.6) 

four  values  (unit  DIM  nunber,  nix  entry,  allowable  upper 
deviation  fren  entry,  and  allowable  lower  deviation  fron 
entry)  per  card,  not  Input  If  IMIXSV  /  1. 

GRPSV.  GRPSV  is  an  Integer  variable  used  as  a  logical  switch  to 
Indicate  to  CONGE*  whether  or  not  a  constraint  on  the  ratio  of  sene 
neasure(s)  of  two  groups  of  units  Is  to  be  Included  In  a  model. 

GRPSV  -  1  ...  a  constraint,  specified  In  detail  below, 

will  be  generated  relating  the  sum  of  some 
measure,  such  as  strength,  of  all  ccnbat 
units  and  of  all  support  units. 
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2  ...  •  constraint,  specified  In  detail  be  lew, 

will  be  generated  relating  the  sues  of  some 
•ensure  of  one  group  of  units  and  of 
another  group  of  units. 

otherwise  ...  no  unit  grouping  constraint  will  be  gener¬ 
ated;  no  attempt  will  be  node  to  read 
header,  data  or  trailer  cards  below. 

Input  ferae t: 

12 

one  value,  on  one  card,  in  column  2,  always  Input. 

Unit  Grouping  Constraint  Specification.  If  a  unit  grouping  con¬ 
straint  is  to  be  Included  in  a  node l  (GRPSV,  above,  ■  1  or  2),  this 
data  sequent  specifies  the  constraint.  In  either  of  the  two  constraint 
inodes,  a  header  card 
card  columns 
k  -  8 
GROUP 

and  a  trailer  card 

card  columns 
1-8 
ENDGROUP 


must  be  Input. 

For  a  Mode  l  unit  grouping  constraint,  only  two  data  cards  need  be 
Input — one  for  all  combat  units  and  one  for  all  support  units.  Each 
card  Inputs  a  positive  or  negative  weighting  factor  and  the  code  number 
of  the  attribute  of  the  group  of  units  (all  combat  or  all  support)  that 
is  to  be  constrained.  The  attribute  may  be  selected  by 

code  number  attribute 

1  strength 

2  cost 

3  number  of  units 

3+1,  for  1  s  l  to  6  combat  unit  effectiveness  Index  1. 

The  weighting  factor  Is  applied  to  the  specified  attribute  of  all  com¬ 
bat  or  support  units.  The  constraint  in  this  mode  Is  structured  as 
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wi  £  ♦  w»  £  *ajXj  *  0  , 

all  all 

ccnbat  support 

units  units 

where  the  w,  are  the  weighting  factors  and  the  au  are  the  attributes 
(such  as  strength)  of  the  units.  Figure  28  shows  an  exanple  of  Input 
data  specifying  a  Mode  1  unit  grouping  constraint.  That  data  specifies 
that  total  combat  force  strength  Is  constrained  to  be  *  0.UU9  total 
support  force  strength. 

For  a  Mode  2  constraint^  the  user  defines  the  two  groups  of  units, 
for  which  the  ratio  of  the  sum  of  the  attributes  Is  constrained.  One 
data  card  Bust  be  Input  for  each  member  of  each  group;  no  unit  nay  be 
a  member  of  both  groups.  The  weighting  factors  and  attribute  selection 
are  individually  specified  for  each  member  of  each  group.  Figure  29  Is 
an  example  of  Input  data  defining  a  Mode  2  unit  grouping  constraint. 
This  data  specifies  that  the  strength  of  all  units  U46,448  and  U50  In 
the  force  Is  constrained  to  be  *  0.50  the  strength  of  all  units  274,275 
and  276  In  the  force. 

Input  format: 

(2QX,I5,1QX,E12.6,10IX,I3) 

the  three  fields  are  the  unit  DdN  number  (only  required  for 
Mode  2),  the  weighting  factor,  and  the  attribute  selection 
number.  Not  Input  if  GRPSW  /  1  or  2. 

AOGRSW.  The  value  of  AGGRSW  indicates  whether  or  not  support  unit 
aggregation  revs  may  be  represented  in  the  model.  These  aggregates  may 
correspond  to  functional  areas.  A  strength  and  a  cost  rev  Is  generated 
far  each  aggregate;  the  row  names  and  types  are  user-specified. 

AGGRSW  si...  support  unit  aggregates,  specified  In 
detail  belcv,  may  be  generated, 
otherwise  ...  no  support  unit  aggregates  will  be 
generated. 

Support  Unit  Aggregate  Specifications.  If  support  unit  aggregates 
may  be  represented  in  the  model  (AGGRSW,  above,  =1),  this  data  defines 
the  number  and  type  of  aggregates.  Up  to  25  aggregates  may  be  repre¬ 
sented.  A  single  support  unit  type  may  appear  in  more  than  one 
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•  ggre&te.  A  header  card  for  each  aggregate  and  a  trailer  card  for  the 
entire  sepsent  of  data  la  required.  The  format  of  each  header  card  la 

card  columna 

1  -  9  21-22  36  38 

AGGREGATE  Label  atrength  row  type  coat  row  type 

where  "label"  la  two  (2)  alphanumeric  character*  to  be  uaed  In  the 
ctrength  and  coat  row  namea  of  the  aggregate,  and  the  row  typea  say  be 
"♦"  ...  total  aggregate  atrength  or  coat  c  RHS  valuta, 

blank  ...  total  aggregate  atrength  or  coat  •  RHS  valuea. 

"•"  ...  total  aggregate  atrength  or  coat  *  RHS  valuea. 

"F"  ...  total  aggregite  atrength  or  coat  unconatralned 

by  RHS  valuea. 

The  aggregite  la  further  defined  by  one  data  card  for  each  aupport  unit 
type  to  be  Included  In  the  total.  There  card*  Immediately  follow  the 
correapondlng  header  card.  The  format  of  each  card  la 

card  columna 

31  -  33 

UTH  number  (right  Juatlfled). 

Figure  30  ahowa  aaaple  aupport  unit  aggregite  data  card*. 

CSSV,  Cl£M,  6RSSW,  SRL5W,  SFSSW,  SFISW.  The  valuea  of  theae 
varlablea  Indicate  whether  or  not  varloua  typea  of  unit  devlatlona  are 
to  be  allowed  In  the  aodel 

CSStf  la  the  avltch  for  combat  unit  ahortfalla  from  RHS  valuea. 

CLfiV  la  the  avltch  for  combat  unit  longfaila  from  RHS  valuea. 

SRSSV  la  the  avltch  for  aupport  unit  ahortfalla  from  alloca¬ 
tion  rule  requlreoenta . 

SRLSV  la  the  avltch  for  aupport  unit  longfaila  from  alloca¬ 
tion  rule  requlreoenta. 

jFSSk  la  the  avltch  for  aupport  unit  ahortfalla  from  RHS 
target  value a . 

SF1CW  la  the  avltch  for  aupport  unit  longfaila  from  RHS 
target  valuea. 
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CSSV,CLSV,  ) 
SRSSV,SRLSV, } 
oFSSW,SFLSV  J 


1  ...  model  variables  representing  the  Indi¬ 

cated  type  of  deviations  will  be  genera¬ 
ted;  the  variables  will  be  weighted  by 
unit  strength. 

2  ...  model  deviation  variables  will  be  gener- 

a  ted,  weighted  by  unit  cost. 

3  ...  model  devlstlon  variables  will  be  gener¬ 

ated,  weighted  by  1.0  (number  of  units). 


1  ♦  3,  for  1 


1  to  KEFF  ...  cccbat  unit  deviation 

variables  will  be  gener¬ 
ated,  weighted  by  combat 
effectiveness  Index  1. 


ICSSV,CLSV,  ) 
SRSSV,SRLSW,/  *  otherwise 
6FSCV,8FL£V  ) 


no  unit  deviation  variables  will 
be  generated. 


Input  format: 
612 


six  values  on  one  card,  always  Input. 

Limits  on  the  amount  of  deviation  are  defined  oelow. 

Unit  Deviation  Tolerances.  If  any  of  the  ur.lt  deviation  switches 
above  were  turned  on,  data  must  be  Included  hen;  to  define  on  a  unit- 
by-unit  basis,  limits  on  each  type  of  deviation.  First  data  Is  Input 
for  C85V  If  turned  on,  then  CLBV,  then  6R3SV,  etc.  A  row  type  Indica¬ 
tor  and  a  real  masher  must  be  Input  for  each  unit  applicable  to  each 
switch.  Thus,  for  CSSV  and  Cl£V,  i  pair  of  values  must  be  Input  for 
each  combat  unit  type.  For  the  other  switches,  values  must  be  Input 
for  each  support  unit  type.  The  model  logic  for  representing  unit 
deviations  Is  discussed  in  detail  In  Chapter  2,  but  a  few  notes  here 
may  be  useful. 

Unit  deviation  variables  are  limited  with  respect  to  the  corres¬ 
ponding  unit  solution  variable.  Thus,  If  one  were  representing  su,*>ort 
unit  shortfalls  from  allocation  rule  requirements  and  wanted  this 
deviation  tc  be  exactly  20  percent  of  requirements,  then  the  solution 
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variable  would  be  exactly  80  percent  of  requirements,  and  the  deviation 

20 

variable  would  be  25  percmt  (-^5)  of  the  solution  variable.  In  this 

case,  the  limiting  rev  type  would  be  specified  as  (blank  input 
value)  and  the  value  as  25  percent  (input  value  of  .25).  If  longfalls 
were  being  represented,  and  were  wanted  to  be  10  percent  of  allocation 
rule  requirements  (or  a  RHS  target  value),  then  the  solution  variable 
would  be  110  percent  of  requirements  and  the  longfall  variable  would  be 

9.O9  percent  (y^j^)  of  the  solution  variable.  Except  for  this  difference 

between  shortfalls  and  longfhlla,  the  calculation  of  the  value  to  be 
input  is  the  same  no  matter  the  type  of  deviation  of  the  type  of  the 
row.  Table  2  lists  values  to  be  input  for  various  deviation  limits. 

Table  2 

INPUT  VALUES  FOR  VARIOUS  UNIT  DEVIATION  LIMITS 
WHEN  LIMIT  IS  EXPRESSED  AS  FRACTION  OF 
ALLOCATION  RULE  REQUIREMENTS  OR  RHS 
TARGET  VALUE 


Licit 

Input  value 

Shortfall 

Longfall 

I’LUiC/U-LUltJJ 

(Llcit/fl+Lialt)) 

.01 

.0101 

.0099 

.05 

.0526 

.0476 

.10 

.1111 

.0909 

.15 

.1765 

.1304 

.20 

.2500 

.1667 

.25 

.3333 

.2000 

.50 

1.0000 

.3333 

For  this  model  logic,  "deviations  <  some  1  of  requirement*  or 
target  values"  are  represented  by  rows.  Data  must  be  input  for  the 
unit*  in  the  order  In  which  they  are  codeled. 
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As  for  other  data  items,  the  rev  type  Indicator  may  be: 

+  . . .  »  rev 

blank  ...  ■  rev 
...  *  rev 

"F"  ...  unconstrained  rev. 

Input  format: 

10(A1,E7.5)»  data  for  one  switch  at  a  time,  only  input  if 
corresponding  switch  is  turned  on. 

Sample  unit  deviations  data  is  shown  in  Fig.  31. 

Hand -Prepared  Matrix  Structure.  During  CONQEN  execution,  any 
matrix  structure  that  is  hand-prepared  by  the  user  may  be  read  from 
system  input  and  included  in  the  matrix  at  the  end  of  the  automatically 
generated  matrix  structure. 

No  matter  what  the  level  of  genexaiity  of  a  specialized  LP  matrix 
generator,  the  need  is  foreseen  for  the  inclusion  from  time  to  time 
of  very  special  structures.  The  hand-generated  matrix  structure  of 
"handgen"  concept  provides  this  additional  model  generality.  The  user 
may  hand-genera te  some  structure  that  is  additional  to  that  gcnerable 
by  CONGO!,  or  he  may  suppress  the  CONQEN  generation  of  some  structure 
and  hand-gene  rate  his  own  version  of  it.  During  any  future  model  logic 
development,  this  ccnccpt  may  provide  the  most  efficient  means  to  test 
new  logic  prior  to  inclusion  in  the  matrix  generator  itself. 

Matrix  structure  is  read  until  a  terminator  card  is  encountered. 

The  terminator  card  must  always  be  present.  Handgen  may  be  input  in 
the  form  of  new  row  or  column  vectors.  Kenyan  handgen  input  of  the 
coefficients  of  new  columns  is  not  allowed.  Additional  coefficients 
for  "old"  revs  and  columns  may  be  input  here,  but  the  column  name  will 
be  duplicated  in  the  list  of  column  names  output  by  OOffGfli  (unit  l). 
Handgen  must  be  prepared  in  a  format  of  the  KTC  in  which  the  matrix  is 
being  generated  as  specified  by  input  data  variable  LANGSV  above.  These 
formats  are 

KFG/36O  (IANGGW  -  1) 


77 


uUJ  •  ,,M  **** 

Ollli  f  1S0MA4 

El _  01MJ  •  KOM'W  H<U»  •• 

Q-IXi  •  *>04404  H*  Art 


01VJ  t  *104*14  H»l\rt  •• 
OIK  *  KCMtfW  l»#Urt 


ain  J  •  *104404  tttiK.i 


78 


c tird  column 
1 


15-22 


25 


5  -  12 

row  type  column 

Indicator  name 


card  col'imn 


row  algebraic  algn 

name  of  coefficient 


OPTIMA  (UNGSV  -  2) 


26  -  36 

absolute  value 
of  coefficient 
(decimal  point 
In  30) 


1  11  -  19  -20  21  -  29  30  31 


32 


1*2 


row  type  row  name 
Indicator  (decimal 
point  In 
column  17) 


column  name 
(decimal 
point  In 
column  27) 


algebraic 
sign  of 
coefficient 


absolute 
value  of 
coefficient 
(decimal  point 
In  36) 


The  row  type  Indicators  are 
1  Vnnk  . . .  ■  row 


M  .  tf  ^  M  _  _ 

♦  a  a  a  *  T(V 

M  H  w 

-  a  a  a  <  TOW 

T  ...  type  free,  unconstrained  row 
The  terminator  c  ird  la  simply  a  card  blank  In  the  row  name  field. 

Fig.  32  la  an  example  of  a  handgen  Input  data  set. 

KH3,  Bound,  Range  Data.  RHS  values  of  CONFORM  model  row* ,  upper 
and  lower  bounds  on  model  columns,  and  upper  and  lower  ranges  on  model 
row  linear  forms  (MT3/360)  or  logical  variables  (OPTIMA)  represent  the 
values  of  many  of  the  constraints  of  OOKFOFM  U*  models.  Several  alterna¬ 
tive  sets  of  these  values  may  be  Included  In  a  single  model.  The  CONGEN 
operator  must  prepare  any  such  data  In  the  format  of  the  KPS  In  which 
the  matrix  Is  being  generated  (see  Inpu*  datum  LARGCV).  These  cards 
are  Input  as  a  separate  data  set  after  OclMOi  execution,  and  are  con- 
catenoted  with  the  row  Identification  and  matrix  element  file*  output 
ty  COfc'GEN  to  forts  the  complete  LP  problem  file  for  Input  to  the  MFC. 

This  whole  dnta  set  must  ttave  at  least  a  terminator  card: 

"EKI1ATA"  In  columns  1-6  for  KPS/»60 
or  "ENDFILE"  In  column*  2-6  for  OPTIMA. 

RHS  value*.  For  KPS/VxO  any  RHS  values  should  be  preceded  by  a 
<~ard  with  “RHS  in  columns  1-3.  The  RHS  values  of  OOKTOft*  model  row* 
represent: 
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(a)  The  number  of  each  combat  unit  type  in  the  force.  One  basic 
model  row  is  generated  for  each  combat  unit  type.  The  type  of  each 
row  is  user-specified  (see  input  datum  NCON).  Frequently  these  rows 
are  equalities,  and  one  RHS  value  is  input  for  each  rcw  to  specify 
the  number  of  that  type  of  unit  to  be  in  the  force.  The  four  character 
names  of  these  model  rows  are 


[”c",i,j,k], 

where  ijk  is  the  DTM  number  of  the  combat  unit.  These  RHS  values  should 
be  non- negative. 

(b)  The  number  of  "optional"  support  units  and/or  the  amount  of 
"augnentation"  or  "deletion"  of  support  units.  One  basic  model  rcw 
is  generated  for  each  support  unit  type,  including  dummy  units,  whether 
or  not  there  actually  are  any  allocation  rule  requirements  for  it.  The 
type  of  these  rows  is  user  specified  (see  input  datum  ALRTYP),  but  is 
usually  "="  meaning  exactly  or  meaning  at  least  as  many  units  as 
specified  by  allocation  rules.  Negative  RHS  values  of  these  rows 
introduce  into  the  force  that  number  of  units  in  addition  to  any  allo¬ 
cation  rule  requirements  for  it.  The  units  support  tail  is  automatically 
introduced  also.  Negative  RHS  values  of  these  rows  may  thus  be  used 
to  represent  Battalion  Slice  "optional"  or  "augmentation"  units. 

Positive  RHS  values  of  these  rows  delete  that  number  of  units  from 
whatever  was  specified  by  allocation  rules.  Support  tails  are  also 
deleted.  The  four-character  names  of  these  model  rows  are 


t"S",i,J,k], 

where  ijk  is  the  unit's  DTM  number. 

(c)  Upper  or  lower  limits  or  fixed  values  of  total  combat,  support 
and  force  strength  and  cost.  Six  resource  constraint  rows  are  generated 
in  each  model  on: 

(1)  Total  combat  strength,  row  "TRSTRL". 

(2)  Total  support  strength,  row  "TSSTRL" . 

(3)  Total  force  strength,  row  "TFSTRL". 

(U)  Total  combat  cost,  row  "tCCSTL". 

(5)  Total  support  cost,  row  "TSCSTL" . 

(6)  Total  force  cost,  row  "TFCSTL". 
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The  type  of  each  of  these  rows  Is  user-specified  (see  input  RESCON). 
Thus,  RHS  values  of  these  rcws  may  represent  floors,  ceilings  or  fixed 
values  on  the  corresponding  resource,  or  may  be  unconstraining.  Since 
all  coefficients  in  the  rows  are  non-negative,  these  RHS  values  should 
be  non-ne^tive. 

(d)  Upper  or  lcwer  limits  or  fixed  values  of  any  canbat  unit 
effectiveness  indices.  Up  to  six  cagbat  unit  indices  may  be  generated 
in  a  model.  The  number  and  name  and  type  of  each  is  user-specified 
(see  input  data  NEFF,  EFFIAB,  EFF).  Frequently  these  rcws  are  only 
generated  as  unconstraining  for  use  as  alternative  objective  functions 
and/or  to  simply  report  their  values.  Since  the  standard  sense  of 
optimization  in  most  MPSs  is  minimization,  and  one  would  most  often 
want  to  maximize  these  functions,  these  functions' are  generated  with 
all  non-positive  coefficients.  Thus  if  any  RHS  values  are  used,  they 
should  be  non-positive,  and  the  actual  rev  type  should  be  the  opposite 
of  the  conceptual  one. 

(e)  Upper  or  lever  limits  or  fixed  values  of  the  strength  and 
cost  of  any  support  unit  aggregates.  Up  to  25  aggregates  of  support 
units  may  be  generated  in  a  model.  Two  rows  totaling  the  strength  and 
cost  are  generated  for  each  aggregate.  The  names  and  types  are  user- 
input  (see  input  datum  AGGRSV  and  following).  All  coefficients  in  these 
rcws  are  non-negative,  and  thus  any  RHS  values  should  be  non-negative. 
The  rcws  may  be  unconstraining,  to  be  used  as  alternative  objective 
functions  or  simply  to  report  the  totals.  The  rew  names  are 

[a,b,"S","T","R"]  for  strength 
and  [a^/'CV'SV’T"]  for  cost, 

where  ab  is  a  two-character  identifier  input  for  each  aggregate. 

(f)  Target  values  for  support  units.  If  support  unit  force  short¬ 
falls  and/or  longfalls  are  represented  (see  input  data  SFSSW  and  SFLSW), 
a  special  row  is  generated  for  each  support  unit  type,  including  dummy 
uiits.  A  r.on-negative  RHS  value  of  each  of  these  rows  represents  a 
target  or  goal  for  the  number  of  each  support  unit  in  the  force. 
Frequently  total  deviations  (short-  and  longfalls)  from  all  such  tar¬ 
gets  are  to  be  minimized.  The  five-character  names  of  these  rcws  are 
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where  ijk  is  the  MM  number  of  the  unit. 

(g)  Change  RHSs.  Frequently  in  advance  of  model  generation  and 
solution,  the  CONFORM  analyst  will  know  the  type  or  types  of  post- 
optimal  analyses  he  may  wish  to  perform.  If  these  include  parameteri¬ 
zation  of  one  or  several  RHS  values,  he  may  specify  in  advance  the 
change  RHSs  needed  and  include  them  in  this  data  set  instead  of  waiting 
until  after  model  solution  and  using  a  MFS  REVISE  to  set  them  up. 
Parameterization  of  RHS  values  may  be  described  by 

effective  RHS  =  RHS  +  ♦  *  (change  RHS ),  where  the  value 
of  $  is  changed  while  maintaining  primal  and  dual  feasibility.  Thus  as 
an  example,  the  change  RHS  specified  in  MPS/36O  format  as 
CRHS  C905  =  3-0 

would  allow  the  increasing  of  the  number  of  combat  unit  905  above  that 
specified  in  an  original  model  RHS  in  Increments  of  3*0  units  for  each 
increment  of  1.0  in 

Bounds.  Eounds  data  specify  upper  and  lower  bounds  on  the  solu¬ 
tion  values  of  model  columns.  For  MPS/36O  this  data  must  be  preceded 
by  a  card  with  "BOUNDS"  in  columns  1-6.  There  is  no  standard  require¬ 
ment  for  bounds  on  CONFORM  model  variables.  One  way  in  which  it  might 
be  used,  however,  is  to  specify  that  certain  units  (for  example  combat 
units)  be  held  in  a  fixed  ratio.  In  this  case  a  single  additional 
model  column  is  generated  to  represent  the  mix  or  ratio  of  units. 

Bounds  may  then  be  placed  on  the  level  of  this  mix  column.  Another  use 
of  bounds  is  to  limit  the  number  of  individual  unit  types  in  a  force. 
This  would  be  done  by  bounding  columns  "Cijk"  or  "CtJk".  The  use  of 
bounds  in  this  way  should  be  in  conjunction  with  the  use  of  support 
unit  requirements  deviations,  to  insure  feasibility. 

Ranges.  For  MPS/360  range  data  specify  upper  and  lower  limits  on 
rcw  linear  forms  (£  an  xs  ).  For  OPTIMA  this  data  defines  limits  on 
the  rcw  logical  variable  (lgl,  in  £  atJ  x,  +  lgl,  =  RHS, ).  For  MPS/360, 
this  data  must  be  preceded  by  a  card  with  "RANGES"  in  columns  1-6. 

There  is  no  standard  requirement  for  ranges  in  CONFORM  models,  but  it 
is  conceivable  that  they  may  be  useful  in  some  application. 
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Matrix  Coefficients.  User-prepared  snatrix  structure  may  be  input 
in  this  data  file  instead  of  or  in  addition  to  the  "handgen"  data  set 
of  actual  CONGEN  execution.  If  it  is,  it  should  precede  any  RHS,  bounds 
or  ranges  data.  See  Fig.  33  for  sample  data  set  Inputs. 

Input  from  Hand-Prepared  Data 

In  this  section,  each  input  data  item  peculiar  to  OONGBi  matrix 
generation  based  on  hand-prepared  basic  structural  data  is  dlacussed . 

As  in  thu  previous  section,  each  input  data  item  is  presented  in  its 
order  of  input,  but  only  those  differing  from  the  above  description  are 
discussed.  Sane  sample  data  values  are  given. 

PRBHAM.  Same  as  discussed  above. 

LANGSW.  Same  as  above. 

DATBOR.  Same  as  above,  except  that  QATSOR  always  ■  2  for  this 
uode  of  input. 

Hand-Prepared  Basic  Structural  Data.  In  this  mode,  all  basic 
model  structural  data  la  hand-prepared  (la  not  the  automated  output  of 
any  known  theater  force  model)  and  read  by  CONGO  from  ays  tea  Input. 
There  are  three  logical  sections  of  data: 

(a)  the  number  of  combat  and  support  unit  types 

(b)  unit  characteristics 

(c)  unit  allocation  rule  coefficients  and  possible  tolerances. 

Data  Items  of  these  three  sections  arc  discussed  in  their  order  of 
input. 

NCQKST.  NCOKXrr  la  an  Integer  variable  that  is  the  number  of  com¬ 
bat  unit  types  to  be  represented  in  a  model.  Figure  3**  shows  an  ex¬ 
ample  of  a  VCOKVT  data  card. 

Input  format: 

15 

one  value,  on  one  card,  right  Justified  in  columns  1-5, 
always  input. 

KSUPPT.  IBUPRT  is  an  Integer  variable  that  is  the  number  of  sup¬ 
port  unit  types  to  be  represented  In  a  audel.  Figure  3**  shews  an  ex¬ 
ample  of  an  K5UFRT  data  card. 
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Input  for-et* 

15 

one  value,  on  one  card,  right  Justified  In  coluana  1-3, 
always  Input. 

Unit  characteristics.  One  data  card  Bust  be  Input  for  each  of  the 
1SC0KBT  ♦  KSUPRT  unit  types  ■  ode  led,  specifying  the  unit's  DIM  (or  other 
3-dlglt  Identification)  nuaber,  title,  SRC  nuaber,  strength,  and  cost. 
The  order  of  appearance  of  these  data  cards  is  the  order  of  the  unit 
types  In  the  aodel  generated.  The  data  for  the  NCOKBT  conbat  unit 
types  aust  appear  first  In  this  section  of  data.  The  structure  of  each 
data  card  Is: 
card  coluan 

2  -  ^  7- 3^  37  -  **7  50  -  51*  57-67 

3-dlglt  unit  unit  unit  strength  cost 

Identification  title  GRC  ( tnteger, right 

nuaber  nuaber  Justified) 

Flgur*  35  Is  an  exaaple  of  unit  characteristics  data  cards. 

liput  format: 

(lJ*,2X,7A«.,2X,2A<t,A3,2X,I5,2X,Ell.6) 

five  values  per  card,  ROOKflT  ♦  KUTHT  cards,  always  Input. 
Unit  allocation  rule  coefficients  and  tolerances.  This  data  seg- 
rent  specifies  the  allocation  rule  coefficients  and  any  permissible 
deviations  from  thea.  This  scjpaent  aust  have  a  header  card 
card  columns 
1  -  7 

BSXJOOET 

and  a  trailer  card 

card  columns 
1  -  7 

OnXXtET. 

One  data  card  Is  Input  for  each  positive  allocation  rule  coefficient. 
The  structure  of  each  of  these  cards  is: 
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Fig.  35— Sample  Unit  Charaetnrittici  Data 
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card  column 

10  -  12 

supported  unit 
identification 
number 

(right  justified) 


15 


17  20-31 


37  -  k6  56 
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supporting  unit 
identification 
number 

(right  justified) 


coef¬ 

ficient 


absolute 
value 
of  maximum 
allowable 
upper 
deviation 


absolute 
value 
of  maximum 
allowable 
lower 
deviation 


(decimal  fractions  of 
coefficient) 

Figure  36  is  an  example  of  allocation  rule  specification  data  cards. 
Input  format: 

(9X,I3,2X,I3,2X,E12.*6,5X,E12.6,  5X,E12.6, 5X,E12.6) 
five  values  per  card,  always  input. 


NEFF,  EFFLAB,  EFF.  Same  as  above. 

NOON.  Same  as  above. 

RESCON.  Same  as  above. 

ALRTYP.  Same  as  above. 

TOLRSW.  Same  as  above. 

Allocation  Rule  Coefficient  Tolerance  Specification.  No  header, 
data,  or  trailer  cards  are  read  here  since  any  tolerances  were  speci¬ 


fied  along  with  the  coefficients  on  the  allocation  rule  data  cards 


above. 


SUBSW.  Same  as  above. 

Allowable  Support  Unit  Substitutions  Specifications.  Same  as 
above. 


UMIXSW.  Same  as  above. 

Unit  Mix  Constraints  Specifications.  Same  as  above. 
GRPSW.  Same  as  above. 

Unit  Grouping  Constraint  Specification.  Same  as  above. 
AGGRSW.  Same  as  above. 

Support  Unit  Aggregation  Specification.  Same  as  above. 
CSSW,  CLSW,  SRSSW,  SRLSW,  SFSSW,  SFLSW.  Same  as  above. 
Unit  Deviations  Tolerances.  Same  as  above. 
Hand-Generated  Matrix  Structure.  Same  as  above. 

RHS,  BNP,  RNG  Data.  Same  as  above. 
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Fig.  36— Sample  Allocation  Rulo  Coofficiont  Data 
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Restoration  of  Basic  Structural  Data  Arrays 

This  section  presents  each  input  data  item  for  CONGEN  matrix 
generation  based  on  restoration  of  basic  structural  data  arrayB  frcm 
binary  dumps  of  those  arrays  produced  on  a  previous  CONGEN  run.  On 
every  CONGEN  run,  a  binary  file  (unit  10)  is  written.  This  file  con¬ 
sists  of  six  logical  records  which  are  dumps  of  the  values  of  certain 
CONGEN  basic  structural  data  variables  and  arrays.  The  records  are: 

(a)  NCOMBT ,  NSUPRT ,  NANZ ,  NBNZ 

(b)  C0EF(8000) 

(c)  kjcoef(8ooo) 

(d)  DTM(T60) 

(e)  strnth(76o) 

(f)  cost(76o) 

This  data  file  may  be  saved.  When  a  subsequent  model  will  have  the  same 
basic  structural  data  this  data  may  be  quickly  read,  bypassing  the 
Battalion  Slice  output  tapes  and  card  deck,  or  some  of  the  hand-prepared 
input  data. 

PRENAM.  Same  as  above. 

LANGSW.  Same  as  above. 

DATS  OR.  Same  as  above,  except  that  must  always  =  5  for  this  mode 
of  input. 

Basic  Structural  Data.  A  binary  file  of  six  logical  records  (unit 
10)  defined  above  in  terms  of  variable  and  array  names,  is  read  in  its 
entirety. 

NEFF,  EFFLAB,  EFF.  Same  as  above. 

KCON.  Same  as  above. 

RESCON.  Same  as  above. 

ALRTYP.  Same  as  above. 

TOLRSW.  Same  as  above. 

Allocation  Rule  Coefficient  Tolerance  Specification.  Same  as  for 
innut  in  Bn  Slice  mode  (DATSOR  =  l). 

SUBSW.  Same  as  above. 

Allowable  Support  Unit  Substitutions  Specifications.  Same  as 
above. 
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The  output  of  CONGEN  consists  of  a  one-page  generation  summary  and 
data  files  defining  the  LP  model,  a  possible  solution,  and  information 
about  it  that  is  passed  to  the  LP  reporter,  CONREP.  The  specific  out¬ 
put  is: 

(a)  One  page  of  generation  summary  statistics,  printed  directly 
on  system  output.  Figure  37  is  an  example  of  this  page. 

(b)  A  card-image  file  of  model  row  names.  The  first  card  is  the 
"NAME"  (MPS/360)  or  "FILE"  (OPTIMA)  card.  This  is  output  on  FORTRAN 
unit  7.  Figures  38  and  39  are  examples  of  this  output. 

(c)  A  card-image  file  of  model  coefficients.  For  MPS/360  the 
first  card  is  the  "COLUMNS"  card.  This  is  output  on  FORTRAN  unit  4. 
Figures  40  and  4l  are  examples  of  this  output. 

(d)  A  card- image  file  of  candidate  LP  basis  vectors,  both  row  and 
column,  that  nay  be  used  for  advanced  starts  to  model  solution.  This  is 
output  on  FORTRAN  unit  3.  Figure  42  is  an  example  of  this  output. 

(e)  A  card- image  file  of  unit  MM  numbers,  titles,  SRC  numbers, 
and  TPSNs  which  is  passed  to  CONREP  for  use  in  the  reports.  This  is 
output  on  FORTRAN  unit  2. 

(f)  A  binary  file  of  data  to  be  passed  to  CONREP.  This  is  output 
on  FORTRAN  unit  11. 

(g)  A  binary  file  of  data  that  may  be  used  on  a  subsequent  CONGEN 
run  to  bypass  the  processing  of  Battalion  Slice  data.  This  is  output 
on  FORTRAN  unit  10. 
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Fig.  37 — Sample  Gonoration  Summary  Statistics  Pag#  of  CONGEN  Output 
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Fig.  38— Examplo  of  Row  Idontification  Sactlon-Unit  7-of  CONGEN  Output  in  MPS/360  Format 
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Fig.  39— Exomplo  of  Row  Identification  Soction-Unit  7 -of  CONCEN  Output  in  OPTIMA  Format 
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Fig.  40— Example  of  Matrix  Coefficients  Section-Unit  4-  of  CONGEN  Output  in  MPS/360  Fermat 
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Fig.  42— Example 

of  Advanced  Start  Basic-Unit  3-ef  CONGEN  Ovtpnt  in  MPS/360  Format 
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(h)  A  card-image  file  of  model  column  names.  This  has  proved 
useful  in  some  solution  strategies  using  OPTIMA,  hut  most  likely  is 
useless  when  using  MPS/36O.  This  is  output  on  FORTRAN  unit  1. 

Normally  after  CONGEN  execution,  to  produce  a  complete  LP  model 
for  input  to  the  .IPS  for  solution,  the  rw  identification  file  (unit  7) 
the  matrix  element  file  (unit  U),  and  the  user  prepared  RHS,  bounds  and 
ranges  data  are  concatenated  to  form  a  single  data  file. 


Chapter  1* 
MODEL  SOLUTION 


The  output  of  the  CONFORM  automated  LP  aatrlx  generator,  OONGDf, 
la  esient tally  a  c deplete  statement  of  the  node!  In  card-lmge  fomat. 
The  aodel  la  Input  to  a  ccraerclally  available  aatbeaatlcal  programing 
system  (KPS)  for  solution,  and  that  aolutlon  La  Input  to  the  CONFORM  UP 
reporter  to  produce  Engl  lah- language  reporta  for  uae  by  the  force 
planner.  The  KPS,  available  at  UBAMSSA,  La  IW'a  KPB/36O.  The  KPS  at 
RAC  la  CDC'a  OPTIMA.  COHOEN  can  generate  a  anlel  in  the  fomat  of 
either  NPS/36O  or  OPTIMA. 

Through  the  uae  of  the  control  atateaenta  of  the  KPS,  the  CONFORM 
analyat  converta  the  card-laage  aodel  to  an  Internal  fora  (aore  efficient 
for  coeputatlon),  aelecta  an  objective  function  and  a  HHS  vector  frea 
alternative  onea  In  the  aodel,  aay  Input  a  ■  tart  lug  point  for  aolutlon, 
appllea  a  aolutlon  a  Igor  It  ha,  and  produce!  reporta  In  the  fomat  of  the 
KPS.  Figure  1*3  la  a  Hating  of  a  aaaple  sequence  of  KFG/360  control 
atateaenta  uacd  to  aolve  a  CONFORM  aodel. 

ADVANCED  STARTS  TO  MODEL  SOLUTION 

Insight  to  the  logical  and  aatheaatlcal  foraulatlon  of  an  LP  aodel 
aay  be  exploited  to  achieve  lap  roved  aolutlon  efficiency.  The  analyst 
would  like  to  reduce  the  tlae  and  nuaber  of  Iterations  leading  to  a 
solution.  Whatever  the  starting  procedure,  it  too  auat  coname  tlae 
and  effort;  the  practical  criterion  of  course  la  the  total  expended 
lr  preliminary  and  aolutlon  procedures.  Strategies  for  advanced  starts 
to  IP  problems  center  on  the  selection  of  a  subset  of  a  problem ' a 
vectors.  A  set  of  linearly  Independent  vectors  that  apan  the  apace  of 
a  problea  la  called  a  basis.  Tire  conventional  process  of  LP  aolutlon 
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CONTROL  PROGRAM  COMPILER  -  MPS/36C  V2-M10 
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proceeds  from  an  Initial  "basis  through  as  many  "bases  as  necessary  to 
discover  first  a  feasible  and  then  an  optimal  one.  The  challenge  to 
the  analyst  is  to  pick  either  an  initial  basis  that  is  "better"  than 
the  MPS's  own  choice  or  to  limit  (at  least  temporarily)  the  MPS's 
choice  of  bases  so  that  the  likelihood  of  early  discovery  of  a  "good" 
basis  is  increased. 

Experimentation  was  conducted  on  CONFORM  models  to  determine 
general  rules  for  selection  of  a  superior  starting  basis.  The  rules 
were  kept  uncomplicated  and  fairly  general  for  easy  incorporation  into 
CONGEN.  Rules  were  discovered,  and  CONGEN  outputs  a  candidate  LP 
bases  vector  list  (CONGEN  unit  3)* 

The  experiments  resulted  in  a  generalized  definition  of  a  vector 
class  which  cut  total  solution  time— number  of  iterations  of  a  primal 
algorithm— to  zero  for  a  CONFORM  "base  case"  or  "calibration"  run,  and 
by  about  2/3  relative  to  starting  points  automatically  chosen  by  the 
MPS  for  more  complex  models.  However,  for  a  complex  model  similar  to 
one  already  solved,  it  is  likely  better  to  use  the  optimal  basis  to 
the  former  problem  as  the  initial  bases  of  the  new  one  than  to  start 
from  the  CONGEN  vector  list.  Unfortunately,  the  break  even  point  at 
which  sufficient  problem  similarity  ends  and  too  much  newness  begins 
is  not  predictable. 

The  general  rules  for  selection  of  vectors  (if  generated)  for 
inclusion  in  the  starting  list  is: 

(a)  For  rows  (logical  vectors)  add: 

(1)  All  alternative  objective  functions  and  unconstrained 
rows  not  usually  thought  of  as  objective  functions. 

(2)  All  strength,  cost  and  effectiveness  limits  rows. 

(3)  The  "unit  group  constraint  row." 

(b)  For  columns  (structural  vectors)  add: 

(1)  The  basic  column  for  each  combat  and  support  unit  type. 

(2)  The  combat  unit  shortfall  and  longfall  columns. 

(3)  The  support  unit  requirements  shortfall  and  longfalls 

columns . 
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(4)  The  support  unit  force  shortfall  and  longfall  column 

v  ctor. 

(5)  The  allocation  rule  coefficient  lower  deviation  columns. 

(6)  The  unit  mix  columns. 

These  rules  define  a  vector  class  that  is  generally  equal  in  size 
to  the  number  of  model  rows — "m".  When  CONGEN  is  outputting  the  matrix 
in  MPS/36O  format,  it  never  produces  a  list  greater  than  "m",  and  it 
associates  a  row  name  not  in  the  list  with  every  column  name  in  the 
list  for  use  by  MPS/360's  INSERT.  For  use  with  OPTIMA,  the  list  is 
input  to  the  MAPIN  procedure. 

OUTPUT  FOR  CONREP 

Figures  44  and  45  are  examples  from  MPS/360's  "SOLUTION"  report 
procedure.  Figures  46  and  kj  are  examples  from  OPTIMA'S  "RECORD" 
procedure.  The  output  produced  by  OPTIMA'S  "RECORD"  is  readable 
directly  by  the  analyst  or  CONREP.  However,  CONREP  cannot  read  directly 
the  output  of  MPS/360's  "SOLUTION".  To  produce  output  from  MPS/36O  that 
is  readable  by  CONREP,  a  small  CONFORM  program,  CONFIL,  has  been  written 
that  is  called  into  execution  from  within  MPS/360,  reading  the  output 
of  "SOLUTION"  and  writing  a  file  of  row  and  column  solution  values  that 
can  be  read  by  CONREP.  The  CONFIL  program  is  documented  in  Appendix  D. 
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MJM6ER ...ROW.. AT ...ACTIVITY... SLACK  ACTIVITY  ..LOWER  LIMIT.  ..UPPER  LIMIT.  .DUAL  ACTIVITY 


Sample  Pag*  from  the  Raws  Section  of  MPS/360's  SOLUTION 


EXECUTOA.  HM/UO  V2-HI0 _  _  _  PAGE  19  -  72/214 
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Fig.  45 — SampU  Pag*  from  tha  Columns  Soction  of  MPS/160’s  SOLUTION 
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Sample  Pag*  from  the  Rows  Section  of  OPTIMA’S  RECORD 
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Fig.  47— Sample  Pogo  from  the  Columns  Section  of  OPTIMA’S  RECORD 


Chapter  5 


SOLUTION  REPORTING 


INTRODUCTION 

The  model  solution  report  produced  "by  the  commercial  solution  sys¬ 
tem  is  unacceptable  to  a  force  planner  and  is  even  inconvenient  for  an 
LP  analyst  to  read.  Figures  44  to  47  in  Chapter  4  show  this.  The 
CONFORM  LP  reporter— CONREP — is  a  computer  program  that  produces  any 
of  several  optional  English-language  reports  of  one  or  two  LP  solutions 
from  the  coded  reports  produced  by  the  MPS.  This  chapter  provides  in¬ 
structions  for  their  production.  The  data  and  parameters  required  for 
CONREP  before  and  during  execution  are  discussed  and  illustrated  by 
examples . 

CONREP  is  written  in  the  FORTRAN  language  and  is  designed  to  permit 
the  CONFORM  user  to  extract  a  wide  variety  of  information  from  CONFORM 
LP  solutions  obtained  under  IBM's  MPS/36O  and  CDC's  OPTIMA  and  from  the 
model  itself.  The  production  of  a  CONREP  report  is  subject  to  program 
logic,  to  the  values  obtained  in  one  or  two  LP  solutions,  to  data 
passed  from  the  CONFORM  LP  matrix  generator— CONGEN — and  to  a  user- 
prepared  control  deck. 

The  original  force  planning  problem  was  translated  by  CONGEN  into 
a  coded  form  suitable  for  input  to  the  MPS;  the  MPS  solution  is  coded 
identically.  A  retranslation  is  required  if  a  solution  is  to  be 
expressed  in  the  terms  of  the  original  problem.  CONREP  is  an  efficient 
solution  decoder. 

There  are  seven  optional  reports  or  subreports.  These  are  listed 
in  Table  3* 
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Table  3 


SUBREPORTS  PRODUCIBLE  BY  THE  CONFORM 
LP  REPORTER 
(CONREP) 


Force  Summary 
Peacetime  Cost  Summary 
Troop  Deck 
Troop  List 
Unit  Allocations 
Unit  Deviations 
Unit  Support 

EXAMPLES  OF  CONREP  SUBREPORTS 

This  section  contains  examples  of  the  optional  CONREP  subreports 
with  explanatory  text.  The  discussion  of  each  subreport  includes  a 
section,  "Request" .  Request  keys  the  corresponding  argument  of  *he 
CONREP  control  verb  REPORT  for  reference  to  the  discussion  of  that 
particular  argument  in  the  next  section  on  control  verbs  and  data 
requirements . 

Force  Summary  Report 
Request:  REPORT  SUMMARY 

Purpose:  To  summarize  on  one  page  force  strengths  and  costs, 

combat  unit  effectiveness  indices,  and  strength  and 
cost  values  of  the  alternative  and  force  deviations 
and  requirements  deviations  for  support  unit  aggregate. 
Example:  Figures  48  and  49. 

Comment:  In  Fig.  48,  the  top  line  on  the  page  is  information 

relating  the  report  to  the  specific  LP  solution.  For 
reporting  of  LP  solutions  produced  by  OPTIMA,  this 
information  is  automatically  extracted  from  the 
solution.  For  reporting  MPS/36O  solutions,  132 
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F*l-  49 — Sompl*  2- Cot*  Fore*  Summary  Report 


characters  are  Input  by  the  user  for  each  M*  solution 
Input  to  CONREP.  The  next  line  Is  a  constant  CONKEP 
heading,  plus  the  report  page  number.  The  five  lines 
of  comments  be  lev  the  subreport  title  are  Input  by 
the  user  for  this  subreport  on  five  cards.  The  number 
of  division  force  equivalents  (DIE)  is  input  by  the 
user  for  this  subreport,  and  is  used  to  calculate  the 
strength  and  cost  per  DIE.  In  the  support  functional 
areas,  force  short-  and  longfalls  are  the  result  of 
comparing  this  alternative  to  target  values  actually 
in  the  model  or  to  another  LP  solution.  This  example 
is  for  a  CONFORM  "base  case"  or  "calibration  run," 
and  thus  there  are  no  force  short-  or  longfalls. 
Requirements  short-  and  longfalls  are  the  differences 
between  actual  allocation  rule  requirements  for  support 
units  and  the  number  of  those  units  actually  In  the 
force.  Figure  U9  Is  a  Farce  Summary  Report  for  an 
alternative  to  the  base  case  reported  in  Fig.  1(8. 

First  note  that  there  are  two  lines  of  information  at 
the  top  of  the  page.  "Case  1"  la  the  alternative, 
and  "Case  2"  la  the  base  case  to  which  It  la  compared. 
Notice  that  force  and  requirements  deviations  are 
reported  for  the  support  aggregates  of  this  alternative. 
Negative  numbers  are  shortfalls  and  positive  numbers 
are  longfalls. 

Limitations:  Although  the  LP  matrix  generator  COtlGSEN  allows  0-6 

combat  effectiveness  Indicators  of  any  type,  CONREP 
always  looks  for  six  and  labels  them  as  shown  In  the 
figure.  CONREP  does  however  use  the  names  that  the 
user  input  to  CQNGBI  to  retrieve  the  values.  A  simple 
CONREP  program  change  Is  required  to  change  the  labels. 

Peacetime  Cost  Summary 

Request:  REPORT  COSTSUM 


<@£> 


112 


Purpose: 

Example: 

Consent: 


Troop  Deck 

Request: 

Purposes 

Example: 

C  assent: 


To  report  the  coat  of  the  canbat,  support  and  total 
force  by  each  of  the  budget  categories  of  the  FCIS,  ind 
by  certain  subtotals  and  totals. 

Figure  50  (two  pages). 

This  Is  a  two-page  report.  The  first  page  reports  the 
total  of  each  of  the  14  Initial  Investment  and  18  annual 
operating  budget  categories  currently  represented  In  the 
COSTAL  model  for  the  combat  force,  the  support  force 
and  the  total  force.  Some  subtotals  and  totals  are  also 
reported.  The  second  page  reports  Initial  Investment 
plus  10  years  operating  cost  for  seme  representative 
discounting  rates.  Total  strengtn  Is  also  summarized  on 
this  page.  The  numbers  sham  In  this  report  are  calcu¬ 
lated  based  on  the  fractional  troop  list  and  the  cost 
factors  In  the  special  Battalion  811ce  extraction  from 
FCIS.  Some  of  these  cost  factors  may  vary  by  peacetime 
station;  six  peacetime  stations  are  represented.  The 
CONREP  user  specifies  an  assisted  across-the-board  dis¬ 
tribution  of  units  at  peacetime  stations  as  Input  data 
to  this  report.  This  distribution  Is  noted  at  the 
bottom  of  the  second  page  of  the  report.  In  this  example, 
all  units  are  assumed  to  be  In  COKUS.  The  report  may  be 
executed  several  times  with  different  distributions. 

Report 

REPORT  TROOPDCK 

To  report  the  troop  list  In  a  card- Image  format  Identi¬ 
cal  to  that  produced  by  Battalion  Slice  (DPROO). 

Figure  51 • 

From  left  to  right,  the  Information  reported  here  Is  the 
DTM  number,  title,  SRC  r umber,  TPJH,  unit  strength,  and 
fractional  and  Integer  number  of  each  combat  and  then 
each  support  (including  dummy)  unit  In  the  force.  The 
format  la  the  same  as  that  of  Battalion  Slice,  except 
for  the  omission  of  the  header  and  trailer  card.  Also 
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Troop  List 

Request: 

Purpose: 


Example: 

Comment: 


CONREP  includes  all  units  that  are  in  the  model,  even  if 
they  have  a  solution  value  of  zero.  The  output  of  this 
report  may  be  punched  or  simply  printed.  The  report  is 
several  pages  long;  this  example  is  extracted  from  the 
middle  of  it. 

Report 

REPORT  TROOPLST 

To  report  the  troop  list  in  a  full-page  format,  showing 
total  and  per-unit  strengths,  support  and  total  slice 
strengths;  cost,  number  of  units,  or  some  other  measure 
be  substituted  for  strengths. 

Figure  52  (three  pages). 

This  subreport  is  most  useful  in  conjunction  with  a 
"base  case"  or  "calibration  run."  The  example  is  taken 
from  a  "strength  base  case",  i.e.,  a  run  that  reproduced 
a  Battalion  Slice  force  and  in  which  the  objective  func¬ 
tion  was  total  force  strength.  The  first  page  of  the 
figure  is  the  first  page  of  the  subreport.  It  reports 
the  combat  units.  Subtotals  are  taken. 

The  subtotal  "total  fractional  slice  strength"  is  equal 
to  the  total  force  strength  due  to  the  combat  force  and 
the  allocation  rules  only.  If  there  are  any  optional, 
augmentation,  deletion,  or  maximum  allowable  units  in 
Battalion  Slice  terminology,  or  any  support  units  with 
nonzero  right  hand  side  (RHS)  values  in  CONFORM  termi¬ 
nology,  this  total  will  differ  from  the  true  total  force 
strength.  The  second  page  of  the  figure  shows  that  the 
report  contin  es,  reporting  the  same  type  of  information 
for  the  support  units.  The  third  page  of  the  figure  is 
the  last  page  of  the  report.  It  shews  that  the  report 
continues  through  the  dummy  units,  reporting  support 
unit  subtotals  and  grand  totals.  In  the  grand  totals, 
fractional  and  Integer  total  units  strength  is  equal  to 
fractional  and  integer  total  force  strength.  In  the 


SOLUTION  VALUES  (CONNER  VERSION  1.0  6/721  RACE 


at.  11  CO  IDNIN  «*/l"/«rCH  nv  12SB7HCC30G 
A6  11  CO  A3NTN  s*T  CJRQ  A"  PIV1?B77T«C33 e 


Fig.  52 — Excerpt*  from  Sample  Troop  List  Report  (Con’d) 


support  subtotals  and  the  grand  totals,  "Total  Support 
Strength"  and  "Total  Slice  Strength"  are  not  meaning¬ 
ful. 

Per-unit  slice  strengths  are  actually  obtained  from  the 
LP  marginal  values  or  Pi -values.  Thus,  if  the  CONFORM 
run  had  been  a  "cost  base  case",  the  slice  values  would 
have  been  measured  in  cost,  and  unit  cost  would  have 
been  used  instead  of  unit  strength  to  fill-out  the  rest 
of  the  report.  The  CONREP  user  specifies  whether  to  use 
strength,  cost,  number  of  units,  combat  unit  effective¬ 
ness,  or  "other"  as  the  unit  of  measure.  The  report 
headings  as  well  as  the  calculation  of  values  varies 
according  to  this  specification.  The  section  on  LP 
Marginal  Values  in  Chapter  2  discusses  these  values  in 
more  detail. 


Unit  Allocations  Report 


Request: 

Purpose: 


Example : 
Comment: 


REPORT  ALLOCATN 

To  report  the  units  that  require  each  support  unit, 
based  on  allocation  rules,  and  the  amount  and  sensi¬ 
tivity  of  each  requirement. 

Figure  53. 

This  report  will  probably  be  most  useful  when  produced 
once  for  the  "base  case"  of  a  CONFORM  exercise  or  run 


series.,  and  not  for  any  alternative  forces.  The  .'port 
is  produced  by  "supporting  unit",  including  dummy  units. 
The  DTM  number,  title  and  number  of  each  unit  in  the 
force  is  shewn.  For  each  of  these  units,  every  unit 
that  requires  it  is  listed — its  DOW  number,  title,  and 
solution  value— along  with  the  coefficient  of  allocation, 
e.g.,  "x  supporting  unit  per  supported  unit".  The 
number  of  units  and  men  of  the  supporting  unit  actually 
required  for  the  number  of  each  of  the  supported  units 
in  the  force  are  reported  in  the  "SUFTING  UNIT  SUB  TOTAL" 
and  "SUB  TOTAL  STRNTH"  columns.  These  columns  are 
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Excerpt  from  Semple  Unit  Allocations  Report 


totaled  to  show  the  total  number  of  units  and  men  of 
the  supporting  unit  required  in  the  force,  based  on 
allocation  rules.  This  example  is  a  base  case.  The 
number  of  supporting  units  in  the  force  does  equal  the 
total  of  supporting  unit  subtotal  column.  If  this  were 
an  alternative  force  run,  one  might  expect  the  number 
of  supporting  units  in  the  force  to  be  less  than  (short¬ 
fall)  or  greater  than  (longfall)  the  allocation  rule 
requirements.  The  LP  marginal  value  of  the  supporting 
unit  is  reported,  in  this  example  the  objective  func¬ 
tion  used  in  obtaining  the  LP  solution  was  total  force 
strength.  The  marginal  value  for  unit  2  is  20.319,  in¬ 
dicating  that  deleting  one  unit  2  from  the  force  would 
remove  20,319  men  from  the  force— unit  2  plus  its  sup¬ 
port  tail.  This  marginal  value  checks  with  the  per-unit 
slice  strength  of  unit  2  shewn  on  the  second  page  of 
Fig.  52.  The  positive  marginal  value  here  is  inter¬ 
preted  in  the  deletion  sense,  because  positive  LP  model 
RHS  values  for  support  units  represent  deletions,  while 
negative  RHS  values  represent  augmentations.  More  pre¬ 
cisely,  the  LP  marginal  value  is  the  rate  of  change  of 
the  objective  function  per  a  change  of  one  (1.0)  in  the 
corresponding  RHS  value.  For  CONFORM  base  cases,  the 
rate  of  change  of  the  objective  function  with  respect 
to  a  change  in  the  RHS  is  the  same  as  with  respect  to  a 
change  in  the  number  of  units  in  the  force.  The  final 
column  of  values  reported  are  derived  from  the  sup¬ 
ported  unit  marginal  value  and  the  solution  values  of 
the  supported  units.  These  values  show  the  sensitivity 
of  the  solution — the  force— to  changes  in  the  individual 
allocation  rule  coefficients.  For  example,  the  first 
value,  -.338,  indicates  that  if  the  coefficient  allo¬ 
cating  unit  2  to  unit  901  were  to  be  increased  by  10 


percent,  338  men  would  be  added  to  the  force.  These 
coefficient  marginal  values  are  calculated  based  on 
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where  J  is  the  objective  function 

atJ  is  the  matrix  coefficient  in  the  ith  row 
and  Jth  column 

TTt  is  the  LP  marginal  value  of  the  RHS  value 
of  rev  i 

Xj  is  the  solution  value  of  column  J. 

In  this  example,  these  values  show  that  this  solution  is 
about  twice  as  sensitive  to  changes  in  three  coefficients 
that  allocate  unit  2  (to  units  901,902  and  905)  than  it 
is  to  any  of  the  others.  As  an  option  the  CONKEP  user 
may  speed  up  this,  report  by  suppressing  the  (search  for 
and)  printing  of  the  unit  titles. 


Unit  Deviations  Report 


Request: 

Purpose: 


Example: 

Comment: 


REPORT  TRPLSTX 

To  report  unit-by-unlt  deviations  from  target  values 
(force  deviations)  and  from  allocation  rule  requirements 
(requirements  deviations). 

Figure  54  (two  pages). 

This  report  is  most  useful  for  reporting  on  other  than 
"base  case"  or  "calibration"  runs.  For  each  combat  and 
support  unit,  Including  any  dummy  units,  Is  reported  Its 
DTM  number,  title,  SRC  cumber,  unit  strength,  unit  cost, 
LP  marginal  value,  and  in  terms  of  both  number  of  units 
and  strength  the  fractional  and  Integer  number  of  the 
unit  in  the  force,  its  force  deviation  and  requirements 
deviation.  As  for  the  Force  Summary  Report,  force  devia¬ 
tions  may  be  competed  from  structure  within  this  altern¬ 
ative,  or  by  comparison  with  another  IP  solution.  In 
this  example  this  alternative  (case  1)  Is  compared  to  a 
base  case  (case  2),  as  indicated  by  the  top  two  lines  of 
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the  page,  to  compute  force  deviations.  Only  one  type  of 
deviation  nay  be  node led  for  combat  units.  This  Is  line 
the  force  deviation  of  s  ipport  unit*— thus  the  "n/A" 
under  requirements  dev 1_. ions  for  combat  units,  as  shown 
on  the  first  page  of  the  figure.  As  for  the  Force  Sum¬ 
mary  Report,  negative  deviations  are  shortfalls  and 
positive  deviations  are  longfblls.  In  this  report  rero 
values  are  blanked-out.  Notice  that  In  this  example  all 
combat  unite  have  force  longfall*— the  combat  force  vas 
au®aented  above  the  base  case.  The  first  page  also 
starts  the  support  units.  T***  second  page  of  the  example 
continues  Into  the  support  units.  No  totals  are  taken 
In  this  report .  Also  as  for  the  Force  S unary  Report, 
the  five  lines  of  comments  uider  the  subreport  title  are 
Input  to  this  subreport  on  five  cards.  The  unit  strength, 
unit  cost,  and  unit  LP  marginal  value  are  reported  as 
Indicators  of  the  sensitivity  of  the  solution  to  changes 
In  numbers  of  Individual  units.  For  example,  If  a  force 
planner  were  looking  for  "nost  significant"  force  or 
requirements  deviations,  he  might  scan  one  of  these  three 
columns  for  the  largest  values  that  also  had  the  type  of 
deviation  he  vas  Interested  In. 

Unit  Support  Report 

REPORT  DUPFOHT 

To  report  the  units  that  are  required  based  on  allocs- 
tlon  rules  by  each  comhat  and  support  unit,  any  devia¬ 
tions  of  these  supporting  units  from  total  requirements 
for  these,  and  the  allocation  of  the  devJ*',»ons  to  the 
Individual  supported  units. 

Figure  55  (two  pages). 

This  report  Is  useful  for  reporting  a  wide  variety  of 
both  "base  case"  and  "alternative  force"  runs.  First, 
note  that  »»  for  the  Unit  Allocations  Report,  the 
printing  of  the  unit  titles  may  be  suppressed  by  the 


Request: 

Purpose: 


Example: 

Ccmoent: 
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user  to  speed  up  the  report.  The  first  unit  In  each 
group  Is  the  supported  unit,  and  the  ones  Immediately 
following  It  are  the  ones  that  support  It.  Thus  on  the 
first  page  of  the  example,  unit  4l8  Is  a  supported  unit, 
and  on  the  second  page  units  419,420  ond  421  are  sup¬ 
ported  units.  For  all  supported  and  supporting  units, 
their  solution  value,  any  requirements  deviation,  and 
their  unit  strength,  unit  cost,  and  LP  marginal  value 
are  reported.  As  for  the  Unit  Deviations  Report,  these 
last  three  values  are  reported  to  key  the  "moat  Important" 
units.  Next  the  coefficient  that  allocates  each  support¬ 
ing  unit  to  the  supported  unit  is  listed.  Any  require¬ 
ments  deviation  already  reported  to  the  left  is  with 
respect  to  total  requirements  for  the  unit— not  neces¬ 
sarily  only  due  to  the  supported  unit  of  the  group. 

Whether  or  not  each  supporting  unit  has  any  requirements 
deviation.  Its  allocation  to  the  supported  unit  Is  first 
calculated  assuming  no  deviation  with  respect  to  this 
supported  unit,  and  then  assuming  uniform  or  across-the- 
board  distribution  of  any  deviation  to  all  units  that 
require  It  (including  this  supported  one).  This  Is  done 
both  In  terms  of  number  of  units  and  number  of  men.  For 
example,  look  at  supporting  unit  312,  under  supported 
unit  4l8.  There  are  .650  unit  312  In  the  force,  which  Is 
.163  fewer  than  total  requirements  for  It,  based  on  allo¬ 
cation  rules.  This  shortfall  Is  20  percent  of  those 
requirements.  If  none  of  this  shortfall  was  allocated 
to  unit  4l8,  there  would  be  .813  (63  men)  of  unit  312, 

Just  due  to  the  presence  rof  .813  unit  4l8.  Thus,  In  this 
example,  unit  31'2  Is  only  required  by  unit  4l8;  and  It  Is 
therefore  quite  correct  to  .allocate  the  same  percentage 
deviation  (20  percent)  to  this  requirement  as  to  total 
requirements  for  unit  312.  When  this  Is  done,  only  .650 
(51  men)  of  unit  312  are  In  the  force  due  to  unit  4l8. 

The  allocation  of  men  to  unit  4l8  Is  totaled  at  the  top 


! 

I 


130 


of  page  two  of  the  figure.  The  10  percent  allocation 
rule  coefficient  marginal  values  are  reported  to  indi¬ 
cate  the  sensitivity  of  the  solution  to  changes  in  them. 
These  values  are  calculated  and  interpreted  Just  as  for 
those  reported  in  the  Unit  Allocation  Report. 

CONTROL  VERBS  AND  DATA  REQUIREMENTS 


The  user  chooses  from  the  optional  CONREP  reports  and  specifies 
parameters  for  those  reports  with  three  CONREP  control  verbs  and 
associated  data.  The  verbs  are: 

(a)  LP.READ 

(b)  REPORT 

(c)  ENDREP. 

Each  of  these  is  discussed  in  turn,  and  then  other  data  requirements 
are  discussed.  These  other  data  requirements  are  satisfied  directly  by 
the  output  of  CONGEN— the  user  need  not  prepare  other  data.  The  control 
verbs  and  their  parameters  are  the  user-prepared  data  for  CONREP.  It 
is  read  from  FORTRAN  logical  unit  one. 


LP.READ 

An  LP  solution  or  two  LP  solutions  must  be  read  by  CONREP,  as  the 
source  of  model  column  solution  values,  and  row  slack,  RHS  and  marginal 
values.  For  reporting  on  solutions  produced  by  CDC's  OPTIMA  MPS,  CONREP 
reads  the  output  of  OPTIMA'S  "RECORD"  directly.  For  reporting  on  solu¬ 
tions  produced  by  IEM's  MPS/36O,  CONREP  reads  the  output  of  the  post¬ 
processor  CONFIL,  whose  input  was  the  output  of  MPS/360's  "SOLUTION". 

All  CONREP  subreports  report  on  a  "case  1".  Two  of  the  subreports 
have  the  option  of  computing  some  information  based  on  comparison  with 
some  values  in  a  "case  2".  LP.READ  may  be  executed  twice  in  one  CONREP 
run  to  read  two  LP  solutions  as  two  "case  Is"  or  a  "case  1"  and  a  "case 


2". 

The  format  of  the  LP.READ  control  card  is: 

Col  2  Col  10  Col  21 

1  1  l 

LP.READ  /MPS/36O)  f  2\ 

(OPTIMA  /  (12/ 


Col  2h 

(3 


There  are  three  parameters,  each  of  vhlch  may  assume  one  of  two  values. 
The  first  parameter  specifies  the  MP£  that  produced  the  solution.  The 
second  parameter  specifies  the  FORTRAN  logical  unit,  from  vhlch  the  solu¬ 
tion  Is  to  be  read.  The  third  parameter  specifies  whether  the  solution 
is  to  be  stored  as  case  1  or  case  2. 

If  more  than  one  case  Is  to  be  stored,  each  case  must  be  stored  in 
natural  order.  An  attempt  to  store  case  2  first  produces  unpredictable 
results.  The  storage  of  case  1  destroys  any  previously  stored  cases. 

Run  title  Information  for  printing  at  the  top  of  each  page  of  the 
reports  Is  obtained  automatically  from  a  solution  produced  by  OPTIMA. 

At  present  the  MPS/360  LP  solution  files  do  not  contain  run  title  In¬ 
formation.  Therefore,  when  a  MPS/360  solution  is  to  be  read,  the  user 
must  Input  this  Information.  He  does  so  on  two  cards  following  the 
"LP.READ  MPS/360"  card.  Any  legitimate  symbols  may  be  used  and  are 
read  under  (1X,17A4/1X,16a4)  format. 

All  cases  read  are  used  with  the  one  set  of  other  data  vhlch  Is 
described  at  the  end  of  this  chapter. 

Report 

There  are  seven  optional  CONREP  subreports.  REPORT  is  a  request 
to  produce  a  subreport.  The  verb  requires  a  non-blank  argument  to 
designate  the  specific  subreport  to  be  produced.  The  production  of 
some  subreports  requires  no  parameters,  but  from  one  to  several  pa  ram- 
etera  are  required  for  others.  Parameters  may  be  carried  in  the  REPORT 
card  or  In  following  data  cards. 

The  report  argument  may  be  any  one  of  seven  values;  It  must  be 
punched  starting  in  column  10  exactly  as  listed: 


(a) 

SUMMARY 

00 

COSTSUM 

(c) 

TR00PDCK 

(«) 

TR00PLST 

(e) 

ALLOCATN 

(f) 

TRFLSTX 

(g) 

SUPPORT. 

Each  of  these  arguments  is  discussed  In  turn  in  the  following  sections. 
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REPORT  SUMMARY.  This  is  a  request  to  produce  the  one -page  Force 
Surmary  Report.  Two  parameters  input  on  a  following  card,  and  five 
following  cards  of  consents  to  be  printed  in  the  report  are  required. 
The  format  of  the  parameter  card  is 

Col  1-10  Col  20 

NDFE  I 

"NDFE"  is  the  number  of  division  force  equivalents  (DFE )  assumed  for 
the  force  to  be  reported.  "NDFE"  must  include  a  decimal  point.  "I" 
is  an  indicator  as  to  how  to  calculate  support  unit  force  deviations. 

A  value  of  "1"  means  to  calculate  them  based  on  carper is on  of  unit 
solution  values  in  case  1  and  case  2.  Any  other  value  is  an  indication 
to  determine  force  deviations  from  structure  within  the  model— case  1. 
The  next  five  cards  may  have  any  legitimate  characters,  and  are  printed 
as  five  lines  of  cament  near  the  top  of  the  report. 

REPORT  COSTS UM.  This  is  a  request  to  produce  the  two-page  peace¬ 
time  cost  summary  report.  81x  parameters  are  required;  they  are  input 
on  a  single  following  card.  The  six  numbers  are  fractions  (from  0.0 
to  1.0)  usually  summing  to  1.0,  which  specify  an  assumed  distribution 
of  all  units  at  the  six  peacetime  stations  of  the  FCIS  model.  These 
stations  currently  are; 

(a)  CONUS 

(b)  Europe 

(c)  Korea 

(d)  Alaska 

(e)  Southern 

(f)  Vietnam. 

The  six  numbers  should  be  punched  in  card  columns  1-10,  11-20,  ..., 
51-6o.  In  addition,  this  report  requires  the  special  Battalion  Slice 
extraction  of  cost  factors  from  FCIS. 

REPORT  TROOPDCK.  This  is  a  request  to  produce  the  card- image, 
Battalion  Slice-format  troop  list  report.  No  parameters  or  arguments 
are  required. 

REPORT  TROOPLST.  This  is  a  request  to  produce  the  full-page  troop 
list  report.  One  parameter  is  required;  it  is  input  in  column  21  of 
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the  REPORT  c&ru.  The  value  of  this  parameter  indicates  how  to  inter¬ 
pret  the  If  marginal  values  for  use  in  this  report.  Different  parameter 
values  imply  different  modes  of  calculation  and  the  printing  of  differ¬ 
ent  report  headings. 

Parameter  -  1  ...  marginal  values  are  to  be  Interpreted  as 
unit  slice  strengths,  as  in  a  "strength 
base  case"  run;  report  headings  say 
"STRNTH". 

2  ...  marginal  values  are  to  be  Interpreted  as 

unit  slice  costs,  as  in  a  "cost  base  cue"; 
report  headings  say  "COST". 

3  ...  marginal  values  are  to  be  interpreted  at* 

number  of  units;  report  headings  say 
"UNITS". 

4  ...  marginal  values  are  to  be  Interpreted  as 

canbat  effectiveness  index  number  1; 
report  headings  say  "IFP". 

5  ...  other  marginal  values  are  not  really  inter¬ 

preted  in  the  report;  report  headings  say 
"OBJCON"  for  "objective  function  contri¬ 
bution"  . 

REPORT  ALLOCATN.  This  is  a  request  to  produce  the  Unit  Allocations 
Report.  One  ^parameter  is  required;  it  is  input  in  column  21  of  the 
REPORT  card.  If  a  "1"  is  input,  the  search  for  and  printing  of  unit 
titles  is  suppressed .  This  suppression  significantly  speeds  up  the 
report. 

REPORT  TRPI8TX.  This  is  a  request  to  produce  the  Unit  Deviations 
Report.  One  parameter  input  in  column  21  of  the  REPORT  card,  and  five 
cards  of  comments  following  the  REPORT  card  are  required.  If  the 
parameter  is  "1",  combat  and  support  unit  farce  deviations  are  computed 
by  comparing  this  force— case  1 — to  a  case  2  LP  solution.  Otherwise, 
force  deviations  are  computed  based  on  Information  in  case  1  alone. 

The  five  comment  cards  may  contain  any  legitimate  characters,  and  are 
printed  as  five  lines  near  the  top  of  each  page  of  the  report. 
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REPORT  SUPPORT.  This  is  a  request  to  produce  the  Unit  Support 


Report.  One  parameter  is  required;  it  is  input  in  column  21  of  the 
REPORT  card.  If  a  "1"  is  input,  the  search  for  and  printing  of  unit 
titles  is  suppressed.  This  suppression  significantly  speeds  ip  the 
report. 

ENDREP 

The  verb  ENDREP  is  a  request  to  terminate  the  CON  REP  run.  No 
arguments  or  parameters  are  required.  The  format  of  the  ENDREP  card  is 

Col  2 

1 

ENDREP 

Other  Data 

Three  files  of  other  data  are  input  to  CONREP.  One  of  these  is 
optional.  All  three  are  automatically  prepared  by  other  computer 
programs . 

CONGER  prepares  two  of  these  files.  The  first  is  a  formatted  file 
of  unit  DIM  numbers,  titles,  SRC  numbers  and  TPSNs.  This  is  produced 
on  CONGEN  FORTRAN  logical  unit  two  (2),  but  is  read  by  CONREP  on  unit 
ten  (10). 

The  second  file  is  a  binary  file  of  model  data — DIM  numbers,  unit 
costs,  unit  strengths,  allocation  rule  coefficients,  etc. — prepared  by 
CONGEN  on  unit  ten  (10).  This  file  is  read  by  CONREP  on  unit  four  ( U ) . 

The  third  file  is  only  required  if  the  Coat  Summary  Report  is  re¬ 
quested — REPORT  COSTSUM.  This  file  is  the  Battalion  Slice  extraction 
of  cost  factors  from  the  FCI8.  This  is  the  Battalion  Slice  unit  85  and 
the  third  file  on  CONGEN  unit  eight  (8).  It  is  input  to  CONREP  as 
unit  11. 

Whatever  LP  solution  cases  are  read  in  a  single  CONREP  run,  they 
are  all  interpreted  using  this  set  of  "other  data". 

For  sample  listing  of  control  cards  see  Fig.  5 6. 


135 


Ln,rrao  ?  1 

L’.ofir  ♦  ?  2 

oro^D»  ^i|.«u*oy  i 

*  •  v. 

*>i»t  *  «.  t  #  TOTfi  poorc  rp*t  *  q«s« 

^fiLt"0£T«-n  rr  22  IJL  r  7?  R0M4F  “«.t'r 
rr-r  3  j*|  fp5  ro»<roo-o  f‘i  a  RTVTSTRM  T^'J^ITHN  Cijpror  T;r£*^,T 

,  T  'j«««y  -  ,.j  orTuT^CMpMtc  ^Mnuj  Fat  t  S  ,  ML  “TTm-JS  .IT.  2  3  °.’r3 

moopL  "''“T  f *tm  s  i  v  ■»  «r  jsijur  ,  M|m  TrtT4L  5Up*‘*r>5?T  J  ITT  ?rr  «;wpotc4LLS 
opopt  T  *1^TSU'< 

1*.  .  .  .  ..  ...  . . .  .  . . 
pro per  yhoosrp* 

ori'ncf  1 

oroorr  1 

1 4 T  =  ate?  ♦  T  ,  TOTat  crop?  ROCf  X  qa;s- 

C4LTqo4Tt;n  TP  ?  ?  .|1JL  V  ??  rOMAP  OM  SlI"* 
tp^t  ?’JN  fro  pr»»rnDr,o  jst»T.  rw  •  RIVTSKN  Romft C»)uation  E'jpR°F  T"P-K'sr 

M-;  ,  0U«MV  «  pr<).jTorMfMTq  ewn*TMllS  ,  ALL  OTw^S  .IT.  ?.  a.*. 

*p$T  e  RT  *1  a  1  ro  0“PJ5*>IMP  ,  MfM  TOTAL  S  joooo r  J«IIT  o*R  SHORTFALL** 
orp nor  su30R°T 
orooor  ALLO^ATN 

tn«oco 


Fif.  56— Listing  si  Samplt  CONREF  Cssiral  Cards -Unit  1 


Appendix  A 


COMPLETE  LISTIHO  OF  CARD- IMAGE  INPUT  DATA 
FOR  A  SAMPLE  CONGEN  RUN 


Direct  CONGEN  Input  138-153 

RHS  Values  154 
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Appendix  B 

DESCRIPTION  OF  CONGER  AKD  ITS  lWJTIMBi 


OVERVIEW 

This  appendix,  together  with  the  listing  of  the  CONGO!  source 
progrtB  In  Appendix  C,  documents  the  CONGO!  program  as  It  is  opera¬ 
tional  at  USAMSSA. 

CONGO!  Is  written  entirely  in  the  FORTRAN  XV  language  for  opera¬ 
tion  on  USAKSSA's  IBM  36G/65  computer  syster.  It  Is  also  operational 
on  RAC's  CDC  61*00  computer  syster.  There  are  several  differences 
between  the  progress  at  the  two  installations.  These  differences  are 
not  docuaented  here. 

The  program  Is  overlayed,  and  some  data  is  packed. 

Figure  B1  Is  the  general  logic  flow  of  CONGER  execution.  Assuming 
an  understanding  of  the  Modeling  system  as  described  In  Voluaw  I  and 
the  text  of  this  volume,  and  relying  on  the  following  detailed  discus¬ 
sion  of  each  routine,  the  figure  Is  self-explanatory.  The  sequence  of 
data  Input  In  subroutine  INIT  and  Its  subroutines  is  shown  In  Fig.  18 
In  Chapter  3» 

Table  B1  defines  the  CONGEN  Input  and  output  units.  Normally, 
unit  7  Is  concatenated  with  unit  1*  and  then  with  a  data  set  of  right 
hand  side  (RHS)  values  prepared  by  the  user  to  fora  the  complete  LP 
matrix  file  for  Input  to  MPS/36O  or  OPTIMA. 

Figure  B2  portrays  the  general  relationship  of  CONGEN  routines,  and 
It  also  defines  the  program  overlays. 

Table  B2  lists  the  entry  points  for  each  routine. 

Table  B3  Is  an  Incidence  table  of  possible  calls  by  each  CONGER 
routine. 
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E3TTRY  POOR'S  OF  oowgpi  ROUTDIES 
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Table  B4  defines  the  possible  norraal  C 0*1 (22!  terminations.  COR  GDI 
does  not  perform  extensive  checking  for  bad  or  Inconsistent  data;  it  is 
possible  for  C  Oft  GEN  to  terminate  abnormally. 

All  cancan  variables  are  In  labeled  co—on  blocks.  Table  B5  Is 
on  Incidence  table  of  labeled  coenon  blocks  in  each  routine.  Table  B6 
defines  the  labeled  coenon  blocks  In  ten*  of  a  listing  of  the  variables 
end  arrays  in  each.  Table  B7  is  an  Incidence  table  of  variables  and 
arrays  in  coenon  blocks.  This  allows  easy  determination  of  the  block 
containing  a  particular  variable.  Table  B8  contains  definitions  of 
each  coenon  variable  and  array.  The  next  sections  discuss  each  routine 
In  turn,  in  the  order  In  which  they  were  listed  in  the  preceding  tables. 

DESCRIPTION  Of  ROWDIES 

Main 

In  general,  the  sain  routine  controls  CONGER  execution  by  calls  to 
subroutines.  It  does  hcvever,  perform  some  Initialisation  and  aatrlx 
generation  Itself.  The  order  of  execution  of  the  aaln  routine  is: 

(a)  Initialise  matrix  slse  counters. 

(b)  Call  subroutine  IN  IT  to  read  all  input  data  but  any  user- 
prepared  matrix  structure.  DIIT  and  Its  subroutines  produce  output 
units  2  and  10. 

(c)  Write  the  binary  file  of  data  on  unit  11  to  be  passed  to 
CONREP. 

(d)  Initialize  output  units  1,  3  and  4. 

(e)  Generate  the  6  or  7  standard  alternative  Objective  function 
names  and  Insert  them  into  the  advanced  start  basis  (unit  3)  by  calls 
to  subroutine  BASIS. 

(f)  Call  subroutine  COMBAT  to  generate  column  vectors  repre¬ 
senting  the  number  of  each  combat  unit  type  In  the  force,  and  optionally, 
short-  and  longfalls  from  their  right-hand  side  (RHS)  values. 

(g)  Call  subroutine  SUPORT  to  generate  colum  vectors  representing 
the  number  of  each  support  unit  type  in  the  force,  and  optionally, 
force  and  requirements  short-  and  longfalls. 
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POSSIBLE  "NORMAL"  CONGEN  TERMINATIONS 
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Table  B6 


DEFINITION  OF  OONGEX  LABELED  OOMCN  BLOCKS 


Block 

Definition 

AOG 

A  OGRSV,NAOOH,AuGW7r(7^),  1X1*00, INNA00(20,2),AGIAB(25) 

AIJ 

NNAU 

ALPHA 

l»U(35) 

BET 

STR,LGL 

COLCWT 

L8TCOL 

CSL 

csTn,(6o),cspER(6o),cLTrp(6o),cira(6o) 

DESCRP 

STRNIH(760),DW(760),C06T(760) 

DEVIAT 

CSSW ,  CISW ,  S  RSSW ,  8  RLSV ,  C  FSSV ,  S  FI£W 

EFT 

neff,effiab(6,  3)»eft(6o,6) 

GROUP 

qrpsv,group(76o),igroup(76o,2) 

LPSY8 

jangsw,prbnam(2),datsor 

MIX 

UMIXSW ,  NMIXES  ,  MIXES  ( 1 00  #  3  ) ,  DUXES  ( 1 00  ) 

NAMES 

NVAR1,NVAR2,  NR0W1 ,  NR0W2,  NNX,  NNN 

NCON 

ncon(6o),rescon(6) 

OBJS 

OBNAME(7,2),NOBJ 

PRBCT 

INDEX 

REQFAC 

COEP  ( 8000 ),  KJCOEP  ( 8000 ),  NAVZ ,  NBNZ 

REQTOL 

T0LRSW,T0LS(2350, 3 ) ,  NTOI£,ALRTIP 

RESOLU 

NCOMBT,  NSURFT ,  NPRAM ,  NPRAMU 

ROWS 

RNAMES(  3000, 2  )  ,  RTYPES  ( 3000 ) 

SIGN 

NEG, PLUS,  ZERO,  BLK,  FREE 

SPAN 

NCNT 

SPTSUB 

SUBSW,  SUB(lOO),  KJSUB(  100,2),  NSUBS 

SSL 

SDVTYP(700),SRSPER(700),SRLPER(700),SFSPER(700),SFLPER(700) 

TITLE 

ITITLE(  7  ),  ISRC  ( 3  ) ,  ITPSN(  2 ) 

TMPMIX 

MXIND,IDWIX(  10) 
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LE7IJUT10K  OF  OORGEI  COMOfl  VARIABLES 
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Integer  Input  Switch  Indicating  whether  or  not  can bet  unit  shortfalls 

are  to  be  aodeled. 

(60)  Alpha  Input  Type  of  each  row  Halting  ccnbat  unit  shortfalls. 


Table  BP  (Cont’d) 
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Alpha  Internal  Sl^i  of  Matrix  coefficients. 

Alpha  Internal  Type  of  aadel  revg. 

Integer  Internal  Kuaber  of  standard  alternative  objective  functions 


Table  B8  (Cent'd) 
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(TOO)  Alpha  Input  Packed  types  of  rovs  Uniting  all  types  of  deviation  for 

each  support  unit. 

(^30)  Peal  Input  Coefficients  of  basic  support  unit  cclunns  in  rows  Uniting 

force  longfjlls. 


Tabic  BP  (Cont'd) 
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allocation  rule  coefficient*  la  to  be  modeled 


Table  06  (Cant’d) 


l6C 


(h)  Optionally  call  subroutine  TOLRNC  to  generate  column  vectors 
representing  lover  and  upper  deviation  from  specified  allocation  rule 
coefficients. 

(i)  Optionally  call  subroutine  UNIMIX  to  generate  column  vectors 
representing  unit  mix  constraints. 

(j)  Optionally  call  subroutine  SUBSTI  to  generate  column  vectors 
representing  substitution  of  support  unit  type  in  satisfaction  of 
allocation  rule  and  other  requirements. 

(k)  Call  subroutine  HNDGEN  to  read  any  user-prepared  matrix 
structure  (matrix  coefficient  data  cards  only). 

(l)  Call  subroutine  ROWOUT  to  vrlte  the  list  of  model  row  names 
(unit  7). 

(m)  Terminate  the  advanced  start  basis  file  (unit  3). 

(1)  If  an  OPTIMA  format,  simply  vrlte  the  "EJfDFTLE"  card- 

image. 

(2)  If  in  MPS/360  format,  read  the  vector  names  on  unit  3  ao 
far,  lgnorl.^  rov  names,  and  associating  a  rov  name  not  on  unit  3  with 
each  column  name  on  unit  3*  The  nev  list  of  column  names  and  associated 
rov  names  is  nov  written  on  unit  3* 

(n)  Print  a  one-page  summary  of  generation. 

(o)  Call  EXIT. 

BASIS 

BASIS  is  a  subroutine  that  is  called  during  matrix  generation 
to  generate  the  advanced  start  IP  basis  file  (unit  3).  The  calls 
determine  the  specific  structural  and  logical  vectors  to  be  included 
in  the  basis.  There  are  three  calling  arguments: 

(a)  HTTP,  the  type  of  the  rector--elther  "STB"  or  "LGL" . 

(b)  NBAS l,  the  first  half  of  the  vector  nare  (U  concatenated 
characters). 

(c)  KBAS2,  the  second  half  of  the  vector  name. 

Since  the  matrix  is  generated  column-by-column,  BASIE  need  not 
check  for  uniqueness  of  structural  vectors  input  to  It.  It  must,  how¬ 
ever,  make  sure  that  logical  vectors  are  not  duplicated.  BASIS  is 
always  called  for  logical  vectors  before  a  call  to  PCWTD  for  the  vector. 
Thus,  BASIS  checks  array  RKAMES  to  sec  if  the  vector  has  already  been 


stored  by  a  call  to  ROW  ID,  and  if  it  has,  assumes  that  it  is  already 
in  the  basis  file,  and  therefore  does  not  write  it  in  the  basis  file 
again. 

For  input  to  MPS/360,  the  basis  file  written  here  is  processed  in 
the  main  routine  after  matrix  generation  is  completed,  tc  put  it  in  the 
correct  format  for  use  with  MPS/360's  2BSSRT. 

CHAR  IN 

CHARD!  is  called  to  pack  alphameric  data.  It  Inserts  a  left* 
Justified  blank- filled  Hollerith  character  Into  byte  i  of  a  specified 
word.  There  are  two  calling  arguments: 

(a)  A,  the  character  to  be  inserted. 

(b)  XR,  the  word  into  which  it  is  to  be  inserted. 

The  byte  into  which  the  character  is  to  be  inserted  is  specified 
by  the  entry  point  of  CHAR  IK.  There  are  four  entry  points  --  Dll,  1X2 , 
1X3  and  Dl1*  —  for  the  four  bytes. 

COLID 

COLD)  is  called  once  for  each  colum  generated  to  write  the  file 
of  column  names  (unit  1).  Since  the  matrix  is  generated  colum-by- 
colusn,  there  la  no  need  for  COLID  to  check  for  uniqueness  of  colimn 
names.  COLID  also  increments  the  count  of  the  niafeer  of  columns. 

Block  Data  JOIRAT 

This  Is  the  only  Block  data  s ^program  in  COVCZX.  In  it  are 
initialised  cooson  variables  BCST,  RPTETA,  IFTBTA,  XU,  KBG,  PUB,  ZXRO, 
BIX ,  FMZ,  STB  and  LQL. 

RCST,  KPTiTA  and  IPTDTA  art  only  used  in  reading  the  Battalion 
Slice  extraction  from  the  FCXB.  They  are  therefore  equlvalenced  to  an 
array  not  used  until  after  this  step. 

The  other  variables  are  used  to  fora  row  end  colusn  name#  and  to 
define  their  types. 

IQttXSX  Is  a  subroutine  that  Is  called  once  froa  the  aaln  routine 
after  aatrlx  generation  but  before  writing  of  the  rw  Identification 
file  to  accept  any  aatrlx  data  prepared  by  the  user  (coefficient  data 
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cards  only).  HNDGEN  calls  subroutine  MATED  repeatedly  until  a  blank 
rev  nane  Is  encountered.  For  each  coefficient  input,  subroutine  RCWID 
is  called  to  Insert  the  row  Into  the  row  Identification  file  If  It  Is 
not  already  there.  Then  subroutine  MAWRT  Is  called  to  write  the 
coefficient  onto  unit  U.  All  coIub&s  input  here  are  assumed  to  be  nev 
to  the  nodel,  and  all  coefficients  In  the  column  must  be  contiguous. 
Subroutine  COLID  Is  called  each  time  the  column  name  Is  different  than 
the  one  last  read  to  write  It  onto  the  list  of  column  names  (unit  l). 
Thus,  If  an  "old"  column  is  read  here  It  will  be  written  on  unit  1 
twice.  If  all  coefficients  In  a  column  are  not  contiguous,  the  coluan 
will  be  written  onto  unit  1  a  number  of  times  equal  to  the  number  of 
"nev  appearances'  lr  the  data  set. 

IHTHOL 

Function  IflTHOL  la  called  by  subroutine  BRK3D0  to  convert  a  1- 
dlglt  integer  to  a  Hollerith  character. 

KJ  JET 

Function  KJGET  calculates  the  sequence  number  of  a  unit  In  the 
nodel  by  searching  array  DIM  until  a  match  la  found  with  the  DIM 
nunber  Input  as  the  single  calling  argument. 

KJJXPK 

Subroutine  KJUXPk  unpacks  the  DIM  numbers  of  the  two  units  corres¬ 
ponding  to  an  allocation  rule  coefficient  from  one  of  two  arrays.  There 
are  four  arguments: 

(a)  IARKAY  specifies  which  of  the  two  arrays  Is  to  be  unpacked. 
LARKAY  •  1  specifies  array  KJCOEF;  otherwise  array  TOLA  (l,l)  Is 
unpacked. 

(b)  DOC  la  th«  word  of  the  array  to  be  unpacked. 

(c)  Ill  Is  the  returned  DIM  number  of  the  supported  unit. 

(d)  IDS?  Is  the  returned  DIM  n .ether  of  the  supporting  unit. 

MASK 

Function  MASK  masks  byte  1  of  sn  Input  word  and  returns  it  as 
l*ft-Juatlfled  with  blank  fill.  MASK  la  used  to  unpack  alphameric  data. 
There  are  tvo  calling  arguments: 
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(a)  XR,  the  input  word. 

(h)  I,  the  byte  to  be  masked. 

MATRD 

Subroutine  MATRD  is  called  by  subroutine  HNDGEN  to  read  matrix 
coefficient  data  cards  prepared  by  the  user  in  an  MPS/360  or  OPTIMA 
format.  The  row  and  column  names,  row  type,  and  sign  of  the  coefficient 
are  passed  through  common  variables .  The  absolute  value  of  the  coef¬ 
ficient  is  passed  by  the  single  calling  argument. 

MATWRT 

Subroutine  MAWRT  is  called  once  for  each  matrix  coefficient  to  be 
written  on  unit  4.  The  two-part  row  and  column  names,  row  type  and  sign 
of  the  coefficient  are  passed  by  common  variables.  The  absolute  value 
of  the  coefficient  is  passed  by  the  single  calling  argument. 

NAME 

Function  NAME  concatenates  four  left- justified  blank-filled 
Hollerith  characters  to  fora  one  half  of  the  8-character  model  row  and 
column  names. 

ROWID 

Subroutine  ROWID  is  called  once  for  approximately  every  matrix 
coefficient  generated.  ROWID  checks  the  name  of  the  row  of  the  coef¬ 
ficient  against  all  rows  stored  so  far  in  array  RNAMES,  and  if  this  is 
the  first  occurrence  of  the  row  in  the  model,  ROWID  stores  Its  name 
in  array  RNAMES  and  its  type  in  array  RTYPES,  and  Increments  the  count 
of  model  rows- 

INIT 

Subroutine  INIT  is  called  once  from  the  main  routine  to  read  all 
input  data  except  for  any  hand-prepared  matrix  structure.  INIT  mey 
call  subroutine  BSIN  or  HANDIN  to  read  seme  of  the  data.  INIT  also 
writes  a  binary  file  (unit  10)  that  may  be  used  to  restore  certain 
data  on  a  subsequent  CONGEN  run,  and  it  initializes  arrays  RNAMES  and 
RTYPES.  The  entry  points  IN1,IN2,IN3,  and  IN4  of  subroutine  CHARIN 
may  be  called  to  pock  some  alphanumeric  data. 
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BSIN 


Subroutine  BSIN  may  be  called  once  from  subroutine  INIT  to  read 
Battalion  Slice  model  data  files .  It  reads : 

(a)  Battalion  Slice  unit  40  produced  by  APROG  as  file  one  on 
CONGEN  unit  eight. 

(b)  Battalion  Slice  unit  75  produced  by  BPROG  as  file  two  on 
CONGEN  unit  eight. 

(c)  Battalion  Slice  card-deck  troop  list  produced  by  DPROG  as  the 
next  data  on  system  input. 

(d)  Battalion  Slice  unit  85  (extraction  from  the  FCIS)  as  file 
three  on  CONGEN  unit  eight. 

BSSORT 

Subroutine  BSSORT  is  called  once  from  subroutine  BSIN  to  sort  the 
allocation  rule  coefficients  --  arrays  KJCOEF  and  COEF  —  into  supported 
unit  order. 

HANDIN 

Subroutine  HANDIN  may  be  called  once  from  subroutine  INIT  to  read 
basic  structural  data  from  that  prepared  by  the  user  rather  than  from 
Eattalion  Slice  model  data  or  restoration  of  data  from  a  previous 
CONGEN  run. 

COMBAT 

Subroutine  COMBAT  is  called  once  from  the  main  routine  to  generate 
all  column  vectors  for  combat  units .  The  order  of  generation  for  each 
unit  is: 

(a)  Column  "Cijk"  representing  the  number  of  the  unit  in  the  force. 

(1)  Coefficient  in  row  TFSTRN. 

(2)  Coefficient  in  row  TCSTRN. 

(3)  Coefficient  in  row  TFCOST. 

(4)  Coefficient  in  row  TCCOST. 

(5)  Coefficient  in  each  of  NEFF  effectiveness  index  rows. 

(6)  "1.0"  in  row  with  same  name  as  column. 

(7)  For  each  support  unit  required  by  the  combat  unit: 

(i)  Coefficient  in  row  "Sijk". 
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(ii)  "-1.0"  in  row  "ijkTlmnX"  if  tolerance  is  allowed  on 
the  coefficient. 

(8)  "-1.0"  in  row  "MijkXlmn"  for  each  unit  mix  constraint  in 
which  the  combat  unit  appears. 

(9)  Coefficient  in  row  TFSTRL. 

(10)  Coefficient  in  row  TCSTRL. 

(11)  Coefficient  in  row  TFCSTL. 

(12)  Coefficient  in  row  TCCSTL. 

(13)  Coefficient  in  row  GROUP  if  the  unit  group  constraint 
option  is  selected  and  this  unit  is  to  be  included. 

(lh)  Coefficient  in  row  "CijkSP"  if  combat  unit  shortfalls  are 
to  be  modeled. 

(15)  Coefficient  in  row  "CijkLP"  if  combat  unit  longfalls  are 
to  be  modeled. 

(b)  Column  "CiJkS"  if  shortfalls  are  modeled. 

(1)  Coefficient  in  row  "TDEV" . 

(2)  "1.0"  in  row  "Cijk". 

(3)  "-1.0"  in  row  "CiJkSP". 

(c)  Column  "CijkL"  if  lcngfalls  are  to  be  modeled. 

(1)  Coefficient  in  row  "TDEV". 

(2)  "-1.0”  in  row  "Cijk". 

(3)  "-1.0"  in  row  "CijkLF". 

INMIXC 

Subroutine  INMIXC  may  be  called  from  subroutine  COMBAT  to  determine 
in  which  unit  mix  constraints  a  specific  combat  unit  appears.  The  single 
calling  argument  specifies  the  DTM  number  of  the  combat  unit.  The  number 
of  mixes  in  which  the  unit  appears  is  returned  in  common  variable  MXIND. 
The  sequence  numbers  of  the  mixes  in  which  the  unit  appears  are  returned 
in  common  array  IIMMIX(IO).  Except  for  name,  is  identical  to  sub¬ 
routine  3NMIXS. 

SUPORT 

Subroutine  SUPORT  is  called  once  from  the  main  routine  to  generate 
all  column  vectors  for  support  units.  The  order  of  generation  for  each 
unit  is: 
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(a)  Column  "Sijk"  representing  the  number  of  the  unit  in  the  force. 

(1)  Coefficient  in  row  TFSTRN. 

(2)  Coefficient  in  row  TSSTRH. 

(3)  Coefficient  in  row  TFCOST. 

(4)  Coefficient  in  row  TSCOST. 

(5)  For  each  support  unit  required  by  this  support  unit  and 
for  this  unit: 

(i)  Coefficient  in  row  Sijk";  "-1.0"  or  "coefficient  -1.0" 
for  this  unit. 

(ii)  "-1.0"  in  row  "iJkTlmnX"  if  tolerance  is  allowed  on 
the  coefficient. 

(6)  "-1.0"  in  row  "MijkXlmn"  for  each  unit  mix  constraint  in 
whi^.h  the  support  unit  appears. 

(7)  Coefficient  in  row  TFSTRL. 

(8)  Coefficient  in  row  TSSTRL. 

(9)  Coefficient  in  row  TFCSTL. 

(10)  Coefficient  in  row  TSCSTL. 

(11)  For  each  support  unit  aggregate  in  which  the  unit  appears: 

(i)  Coefficient  in  row  "abSTR" . 

(ii)  Coefficient  in  row  "abCST". 

(12)  Coefficient  in  row  GROUP  if  the  unit  group  constraint 
option  is  selected  and  this  unit  is  to  be  included. 

(13)  Coefficient  in  row  "SijkRSP"  if  support  unit  requirements 
shortfalls  are  modeled. 

(14)  Coefficient  in  row  "SijkRLP"  if  support  unit  requirements 
longfalls  are  modeled. 

(15)  "1.0"  in  row"SijkF"  if  force  short-  and/or  longfalls  are 

modeled . 

(16)  Coefficient  in  row  "SiJkFSP"  if  support  unit  force  short¬ 
falls  are  modeled. 

(17)  Coefficient  in  row  "SijkFLP"  if  support  unit  force  long¬ 
falls  are  modeled. 

(b)  Column  "SijkRS"  if  requirements  shortfalls  are  modeled. 

(l)  Coefficient  in  row  TDEV. 
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(2)  "-1.0"  in  row  "Sijk". 

(3)  "-1.0"  in  row  "SiJkRSP". 

(4)  For  each  aggregate  in  which  this  unit  appears: 

(i)  Coefficient  in  row  "abSTRRD" 

(ii)  Coefficient  in  row  "abCSTRD" . 

(c)  Column  "SijkRL"  if  requirements  longfalls  are  modeled. 

(1)  Coefficient  in  row  TDEV. 

(2)  "1.0"  in  row  "Sijk". 

(3)  "-1.0"  in  row  "SiJkRLP". 

(4)  For  each  aggregate  in  which  the  unit  appears: 

(i)  Coefficient  in  row  "abSTRRD". 

(ii)  Coefficient  in  row  "abCSTRD". 

(d)  Column  "SiJkFS"  if  force  shortfalls  are  modeled. 

(1)  Coefficient  in  row  TDEV. 

(2)  "1.0"  in  row  "SiJkF". 

(3)  "-1.0"  in  row  "SiJkFSP". 

(4)  For  each  aggregate  in  which  the  unit  appears: 

(i)  Coefficient  in  row  "abSTRFD" . 

(ii)  Coefficient  in  row  "abCSTFD". 

(e)  Column  "SijkFL"  if  force  longfalls  are  modeled. 

(1)  Coefficient  in  row  TDEV. 

(2)  "-1.0"  in  row  "SijkFL". 

(3)  "-1.0"  in  row  "SiJkFLP" . 

(4)  For  each  aggregate  in  which  the  unit  appears: 

(i)  Coefficient  in  row  "abSTRFD". 

(ii)  Coefficient  in  row  "abCSTFD" . 

INMIXS 

Subroutine  INMIXS  is  identical  to  subroutine  INMIXC  except  for  the 
name.  INMIXS  may  be  called  from  subroutine  SUPORT.  This  logic  is 
duplicated  to  facilitate  program  overlaying. 

INAGQ 

Subroutine  INAGG  may  be  called  from  subroutine  SUPORT  to  determine 
in  which  support  unit  aggregates  a  specified  unit  appears.  The  single 


calling  argument  is  the  DTM  number  of  the  unit.  Common  variable  INDAGG 
returns  the  number  of  aggregates  that  include  the  unit,  and  common 
array  INNAGG(20,2)  returns  the  two-character  name  of  the  aggregate  and 
the  types  of  the  two  rows  for  the  aggregate.  The  two  row  types  are 
still  packed  into  the  first  two  bytes  of  the  word. 

TOLRNC 

Subroutine  TOLRNC  ma^be  called  once  from  the  main  routine  to 
generate  column  vectors  representing  lower  and  upper  deviation  from 
individual  allocation  rule  coefficients.  The  order  of  execution  of 
TOLRNC  is: 

(a)  For  each  A-matrix  coefficient: 

(1)  Generate  column  "ijkTlmnL"  representing  lower  deviation 
if  allowed  for  that  coefficient. 

(i)  Coefficient  in  row  "iJkTlmnX". 

(ii)  Coefficient  in  row  "Slmn". 

(2)  Generate  column  "ijkTlmnU"  representing  upper  deviations 
if  allowed  for  that  coefficient. 

(i)  Coefficient  in  row  "iJkTlmnX". 

(ii)  Coefficient  in  row  "Slmn". 

(b)  For  each  B- matrix  coefficient: 

(1)  Generate  column  "ijkTlmnL"  representing  lower  deviations 
if  allowed  for  that  coefficient. 

(i)  Coefficient  in  row  "iJkTlmnX". 

(ii)  Coefficient  in  row  "Slmn". 

(2)  Generate  column  "iJkTlmnU"  representing  upper  deviations 
if  allowed  for  that  coefficient. 

(i)  Coefficient  in  row  "IJkTlmnX". 

(ii)  Coefficient  in  row  "Slmn". 

UNIMIX 

Subroutine  UNIMIX  may  be  called  once  from  the  main  routine  to 
generate  column  vectors  representing  unit  mix  constraints.  The  order  of 
generation  for  each  mix  is: 

(a)  Column  "MIXiJk"  representing  the  mix:  for  each  unit  in  the  mix: 

(i)  Coefficient  in  row  "MiJkXlmn". 
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(ii)  "-1.0"  in  rcw  "MiJkTlmn"  if  lower  and/or  upper  tolerance 
is  allowed  on  the  unit's  entry  in  the  mix. 

(b)  Call  to  subroutin';  MIXTOL  to  generate  columns  representing 
tolerances  on  the  mix  entries. 

MIXTOL 

Subroutine  MIXTOL  is  called  from  subroutine  UNIMIX  once  for  each 
unit  mix  constraint  to  generate  column  vectors  representing  tolerances 
on  the  mix  entries.  Calling  arguments  specify  the  sequence  number  of 
the  mix  and  the  location  of  the  specification  of  the  mix  and  Its 
tolerances  in  array  MIXES (100, 3).  The  order  of  execution  is: 

(a)  For  each  entry  of  the  mix. 

(1)  If  upper  tolerance  is  allowed,  generate  column  "MiJkUlmn" 

(i)  Coefficient  in  row  "MiJkXlmn". 

(ii)  Coefficient  in  row  "MijkTlmn". 

(2)  If  lower  tolerance  is  allowed,  generate  column  "MiJkLlmn" 

(i)  Coefficient  in  row  "MiJkXlmn". 

(ii)  Coefficient  in  rcw  "Mijktlmn". 

ROWOUT 

Subroutine  ROWOUT  is  called  once  from  the  main  routine  after  all 
matrix  coefficients  have  been  generated  to  write  the  model  row  file 
(unit  7).  ROWOUT  writes  the  "NAME”  or  "FILE"  card  for  the  whole  model 
then  the  alternative  objective  function  names  stored  in  array  OBNAME, 
and  then  the  row  names  and  types  stored  in  arrays  RNAMES  and  RTYFES. 
Before  writing,  function  NRW1P  is  called  for  each  row  to  convert  its 
type  from  the  internal  blank,  or  "F"  to  the  type  indicators 
actually  required  by  MPS/36O  or  OPTIMA. 

NRWTP 

Function  NRWTP  is  called  from  subroutine  ROWOUT  once  for  each 
model  rcw  to  convert  its  type  from  the  internal  "+",  blank,  or  "F" 
to  that  required  by  MPS/36O  or  OPTIMA. 
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EXCEEDED  WITH  NAN/  •  -  /  ,  01 MEN-OoOl AwJw 

SION  OF  ARRAYS  COEF.XjCCEf  uOj 

EXCEEDED  WHEN  REACING  BN  SLICE  JuJ*6BR./ 

MUOEL  A-MATRIX  TAPE  UOOi.VOr 

JOrDOrr 

STOP  0006  BSIN  /  COEFFICIENT  STORAGE  CAPACITY  Jru.rIJ.. 

EXCEEDED  WITH  . . .  ,  01  MEN-33J1 >WGG 

SION  3F  ARRAYS  COEF.XJCCEF,  OOJijJJj 

EKCEFOED  WHEN  RE/CIMG  COEFPI- 
CtENT  NBNf  FROM  PN  SLICE  MODEL  J3015>rr 

•-MATRIX  TAPE  JwvL5»rR 

3301 5 Zrr 
OJwl »»rR 

CCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCL3dlANGJ 

Jo J* au J j 
333. ».J* 

THIS  IS  THE  MAIN  ROUTINE  OF  CONGEN  03ul»w0j 

J  3  J  i  6  )j  * 

THT  PURPOSE  OF  THIS  SUBROUTINE  IS  TO  PERFORM  SOME  INITIALIZATION  3JJ.WMRR 
AND  TO  SET  UP  THE  CALLING  SEQUENCE  0*  THE  CONGEN  SUMOUTINES  oOOI6>wr 

WHICH  READ  the  INPUT  DAT  A, 06  SEP \l E  JCu.66*r 

THE  MATRIX  REPRESENTATION  OF  A  GIVEN  FORCE  MODEL  JOJiu/RR 

LINEAR  PROGRAMMING  MODEL. AND  OUTPUT  THIS  MODEL  OJCixwrj 


STOP  0001 


STOP  0002 


STOP  003) 
STOP  3036 


STOP  3005 


STOP  0006 


ROW  ID 


KJGET 


/  KJGET  CALLED  WITH  ID  NCT  IN  ARRAY 
OTM  / 


THIS  IS  THE  MAIN  ROUTINE  OF  CONGEN 


AND  TO  SET  UP  THE  CALLING  SEQUENCE  0*  THE  CONGEN  SUPRUUTINES  u0016>or 

WHICH  REAO  THE  INPUT  DAT A.GE SEP \l E  JCui66*j 

THE  MATRIX  REPRESENTATION  OF  A  GIVEN  FORCE  MODEL  3M>itt7RR 

LINEAR  PROGRAMMING  MODEL. AND  OUTPUT  THIS  MODEL  OJComJr 

JrJ1»Y R. 

COMMON  /AGG/AGGRSw.NAGGR.aGGRGTI T50) .IN0AGG.INNAGGI20.2I ,AGL  AiAI 25 1 JrrI ZCrr 
COMMON  /AIJAMAIJ  JJr.ZUr 

CC.MMIN  /ALPHt/NUI  3SI  uOOl  ZZ.r 

COMMON  /BE  T/SI R. LGL  UJJ. ZJr.» 

COMM.IN  /COLCWT/LSTC0L  JLr1Z<*ww 


/ 


•  »»»oo  noon 


MEMBER  NAME 
COMMON 
COMMON 

• 

common 

COMMON 

common 

CONDON 
COMMON 

c.11««3\ 

COMMON 

common 
COMMON 
COMMON 
COMMON 

common 

COMMON 
COMMON 
COMMON 
.  COMMON 
COMMON 
COMMON 
COMMON 

m 

01  MENS  ION  DUMlUSOOl.OUM/tASOOl 

E3UI  VALENCE  I3UM1I 1I,:0EE|  III.IOUM/I II  .RJCOCRUII 

m 

INTEGER  MjM|t0U««? 

INIEGEM  GRAS*, JN|ll«,SUAStf, ERfr.OTM.OA  TSOR.RLUS, ICAO, Bti.RRAMfS 
INTEGER  ATERES.RABNAN.STA.LGL.OANANE. TOLAS* 

INTEGER  CSS4.CL  SO.SASSM.VILSil.SE  ISO.  SRLSM 
INTEGER  CSTtR.ClTTR.SOITrR 
INTECER  AGGRSO, *GCAG I 
INTEGER  agiaa 

INTEGER  lEELAa.AlRTTR.RESCON 
REAL  MIUS.LMlOL 
C 

CCCCCCCCCCCCCC  _ . 

CCCCCCCCCCCCCC 

CALL  AKfAR 
CCCCCCCCCCCCCC 
CCCCCCCCCCCCCC 

:  initialize  matrii  SIZE  counters 

INOII-I 
LSICOL-O 
NN A  140 
NCNTO 
NO  A J  •  A 


CONGEN 

/CSL/CSTMRI A3I.CSRERI40I .CLTTRI491 .CLREAI63I 
/SSL/SOWRI TOOl.SRSRERirOOl  ,  SURE M700I  ,SF  SREAI  700 », 
SELRERI tooi 

/or  scrr/strnthi  taci.otmitaoi .costi 7401 

/OfcV IAT/CSSM, CL SW.SHSSM, SRLSM.SE SSH, SELSO 
/EEE/NEEE.EEFLIM  E.31  »EEE  (  60,  6| 

/GRUU?/GA»SM,f.O  Z«*l  7431,104  lU.'l  740,21 

/LRS»S/L»’.GS4.R»4NAN|  j|  .DATSOR 

/M|  *  /un  I»Sn«,.M|*cS«M|  IE  SI  iro.3l.IMI  IE  SI  1 931 

/‘UMES/VV4/l,NVl«/.N4'Ul,KK0W2.NNI,AftN 

/  n:  I.N/NCUNI  AOI.  a  ESC  ONI  At 

/OttJS/OdNAMEI  7,2>,N)B4 

/R4*lCf  /  l\OE  * 

/RE  JEAC/C  31  El  nCCOI.RJCOEE  I  8 ’'001  .NANI, NANI 
/REJTJL/r  ILASN.I>USI2SSG.  31 , NIOLS. RLRTVR 
/RESOLU/NCOMAT.NSURRT.NRRAM.n  4 Amu 
/AUUS/ANlMCSt 10(0,11 .RTvRESI 30001 
/SIGN/NEG.RLUS.f ERO.ALR .TREE 
/SRAN/NCNt 

/SRTSUS/SUASw.SUAIIOOl.IJSmi  ICO, 1 1  .NSUAS 
/I  ITLE/ ITI  HE  <71.  ISRC  111,  I  TRSNI2I 
/IMRMII/NI | NO , I  | MM| 1 1  10) 


call  subroutine  inii  to  reao  all  inrut  oata  e»cir»  nanogen 
CALL  SUIT 


tfAITf  BIMAA t  RILE  --  TARE  11  --  OE  OATA  TO  R(  USEO  AT  RfRORT f R 


0001 7 >4* 
0001/404 
40017744 

Ooul 7«4» 
0001 7V0u 
UOOIB644 
lOutll,, 

0w4l*J0tf 
4001*04 
OOOUSO* 
6441**44 
XwUlg. 
660. JS44 
OOOIRVU* 
OCwlNUUt. 
0001 « 100 
0001**44 
uOulDww 

uomow 
064 14S64 
0001*444 
OOtlNZUw 

404l*»44 
06014404 
00 0/4004 
XW/4U4 
>4  0/4/44 
00|Mw>64 

000*4*44 

000/0*44 

OOuImIu- 

600*3404 

044/w VO* 

OO4/IC44 

304/1134 

060Z1Zw4 

OwO/lXv 

300/.S34 

006/1404 

O0MIT4U 

033*1*44 

OOo/lVO* 
0001/0/4 
304**144 
OOO///44 
0001 I >44 
004/1*44 
040/1344 
OOwZ/AJ* 
0001/ »44 
OOO//RO4 
000/ /VOv 

444/ >44* 
044/0144 
OOO/i/04 


I 


HEHBfA  NANf  CONGEN 

WRITf  (ill  STRNTM.STH.CUST 
WAIEE  (111  CJt  f 
w«  Ift  I  111  AJClIff 

UIITC  (111  NAN/,N*Nl  .NCHhat.NSUPRT 
WR  I  Te  (111  NET F.CIfLAS.cff 
W4  I T  e  (111  NAGiiR,  AiL  AR 


c 

c 

c 


hlllHIff  HAT«|X  ELE  VF  N  T  fllf  / TAPF  4/  ACCORDING  TO 
rm  MATHEMATICAL  PAUGA  'Tir.  SVSUM  FORMAT  Of  THIS  A  UN  AS 
SPECIE  IEO  HV  |V»UT  111!  VARIABLE  LANGSW 
LANGSW  •  1...WOS/S60 
2.. .DPI  I  HA 

IF  (LANGS4.EJ.il  WAITE  14,1201 

INITIALISE  COLUMN  IOENTIFICATICN  file  /tapci/  according  to  langsm 
IF  (IANGSW.EQ.1I  WHITE  11.1201 

INITIALISE  ADVANCE?  STAAT  BASIS  FILE  /TAPES/  ACCORDING  TO  LANGSW 


IF  (LANGSW. CQ. 21  WAIT*  (3.130k 

CONSTRUCT  ALIEANATIVF  OBJECTIVE 
FILE  I T APE T I  AND  ENTER  TMtW  INTO 
FILE  (TA2EJI 


ROWS  FOR  AOW  IDENTIC  ICATION 
ADVANCED  STAAT  LP  BASIS 


210 

10 

c 

c 


TF  $  TAN  -  TOTAL  FORCE  STRENGTH 
OMNAWfll.ll  .  NAWE(N<I(  24I.NUI  ISI  .NUI2BI  .NUI2NII 
U0N»NE(1.2I  •  N»Mf(vul2ll,N'M2JI  .wLK.HLKI 

TCSIAN  -  TOTAL  ClMA.AT  FORCE  SIAENGIM 
OBNAWCI2.ll  •  NAMf  (  NU(  2NI.NUI  I  21  .  N  J  (  2B  I  .  Nl<  129 1  I 
Ot>NA“E  I  2.21  •  NANE(NUI2TI.NU(?1I  .ALK.ULKI 

TSSTAN  -  I  ST  11  SUPPORT  *Of»CF  STRENGTH 
USNAHtlS.il  •  N1HEI  NU(  SH.NUI.MI  ,N  H2AI  ,NU(2AI  I 
OSNAHf  (1,21  •  N\HHVU(  2TI.NUI2SI  .HLK.HIKI 
TFCOST  -  TOTAL  FORCE  COST 
ONNAWE (4.11  •  NAHCINUI S1I.NUI 1M .NUI  121 .(UI2AI I 
OSNAHF ( *  ,  2  I  ■  NIHEINJI ISI.NJISHI  .RLR.BLKI 

TCCOVT  -  TOTAL  CfwSAT  fUACE  COST 
OBNAHriS.il  •  NAHEINUI  2AI.NUII2I  .Nlll  121  .NUI2AII 
OSNAHf  |  s  ,  S  |  .  NtHfiNUI  24I.NJ(2'»  .MF.BLKI 

TBCUNT  -  TOTAL  SUPPORT  »OfcCF  COST 
OSNtHEIS.il  •  NAHHNUI  2<il.NJI2SI  .NJI  121  .NUI24II 
OSNAHf  14,21  •  N»H((NUI  2AI.NU(2<>I  .P(  K.RLAI 

TOC  V  •  TOTAL  DEVIATIONS  TLONGF/US  *  S>*OA  TF  ALLS  I 
IF  (CSf4.L(.0»AV).(L  Sfc.L  E.Q. AND.  S*SSw.Lf.O.( ND. SALSW.LF. 3. ANO. 

»  SFSSw.Lf .O.ANJ. SflSw.L(.O)  GO  TO  210 

NSAJ  •  T 

OSNAHf  (  ?  ,U  .  NAHEINUI2SI.NUI  I  SI  .  NUT  IS  I  .NUI  S !  1 1 
OINAHf IT  ,21  •  SLR 
OS  10  I  •  l.NOIJ 

CAU  BASIS  ILGL.0SNAHt||,||,DS\ANEII.2ll 
CONTINUE 


0002*000 
D0o2>01 J 
OlJ/iJcv 
0 CUWiJJO 
Jww2S3ww 
0  GOwrhDw 
00w2 J>ww 
ww02  3uwj 
wwwcjTJw 
OuGc JoD. 
0002AVJJ 
GO  u2mGDw 
00w44 lww 
CUw2<»4Gw 
J  0024  30w 
00024*  JJ 

00024»UJ 

wG02*»0u 
Ov  w2*  /  JJ 
00 G244UU 
wG 024400 
OGOoOwO 
00 w2Bl wG 
Owv2*2wj 
J0D2 S 
oDw2)*0w 
0002>SGJ 
00 02 S&wJ 
D0D2>TJJ 
0002 > so . 
Oij/ttjj 
OuDw* 0 Ow 
0002* l  wo 
OOGwAiww 
Du  02*  JO  w 
OOO.’dsOo 
0G02o>0w 
0Jv2ktJ. 
0002  WOO 
JO 024400 
OG 02*400 
wC02TwOu 
OGOwTlOw 
OGwwT.jJ 
0002  T  AOu 
0002  7*wJ 
00027SDw 
Uvw  T  v&w 
00021  Two 
OOw2T ivv 
OOo'TVOw 
0002* joO 
GUwolDw 
0002J20W 
01 w2*)0w 
00  w24 »0u 
00  w2  4  >ww 


cccccccccccccccccccccccc::c:c:crcccctcccccccccccccc(cccccccc:cccccccccccjcw2**0w 
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j 

MEMBER  NAME  CONGEN 

C 

GOO 34500 

C 

MRS/360  FORMAT 

<.00346 Jo 

c 

3003473o 

c 

READ  BASIS  FILE  CONSTRUCTED  BASFO 

CN  OPTIMA  LOGIC  ANC 

3003963.. 

0 

STORE  IN  TWO  PARTS— LGL  AND  STR. 

ARRAYS  KJCOEF  AND  I GROUP 

30o3t9Jo 

c 

ARE  USED  FOR  THIS  STORAGE. 

00033OOO 

c 

0003510J 

KEUINO  3 

000 J?20u 

ILGLPT  «  0 

03035330 

ISTRPT  ■  0 

0003?*.  33 

20 

READ  (  3.  14D,END*50I  1  NO , NflA S l, r.B A S2 

COOJaSGu 

C  23 

READ  13.1431  1  NO. NBA  SI . NRAS2 

J0035oUJ 

C 

IF  (EOF, 3)  30. 30 

30035733 

C 

OOOJ300U 

10 

IF  ( INO.EQ.LGL 1  GO  TO  40 

00035900 

ISTRPT  ■  IS1RPT  ♦  1 

0003a  30.. 

0JM1I ISTRPTI  -  NBASI 

33036103 

0UM2I ISTRPT)  »  NBAS/ 

00036200 

GO  TO  20 

0003a303 

AO 

ILGLPT  •  ILGLPT  ♦  1 

30 JjoLGu 

IGROUPI ILGLPT. 1)  •  NBA  SI 

00036500 

1GR0UPI ILGLPT. 21  *  NRAS2 

J003oo Oj 

GO  TO  23 

00036700 

C 

J003ott03 

C 

LOOK  AT  EACH  GENERATED  ROW  (LESS 

OBJECTIVE  FUNCTIONS— 

0305690.. 

C 

ARRAY  R NAMES)  AND  IF  !»T  IS  NOT  IN 

THE  GENERATED  BASIS  , 

0003  700o 

C 

ASSOCIATE  IT  WITH  A  COLUMN  IN  THE 

BASIS.  THE  ASSOCIATED 

00O3  7100 

c 

ROWS  ARE  STOKED  IN  THE  SECOND  HALF 

OF  ARRAY  KJCOEF. 

3003720.. 

c 

3003/ 30 J 

90 

K  -  1 

00037400 

NROW  •  INDEX  -  l 

30037533 

OU  TO  1  •  l.NROW 

00037uoo 

DO  60  J  -  I, ILGLPT 

0003770 o 

IF  (RNAMESI  1,1  I.E  J. I GROUP! J.  1 1  .A NO. R NAME S ( I. 2 ) . EQ. 1 GRCUPI J.2)  1 

30037030 

•  GO  TO  T3 

0003  793 j 

60 

CONTINUE 

30036003 

0UM1 I <*3100)  ■  RNAMrStl.il 

0303B13J 

0UM2IKO103)  •  RNAMS  St  1,21 

0003B233 

c 

NOW  WRITE  OUT  COLUMN  NAMES  WITH  ASSOCIATED  RCW  NAMES 

30U3630J 

c 

AS  THE  BASIS  FILE  — STILL  TAPES 

3C03643J 

c 

0003»50o 

K  •  K  ♦  1 

3003  363.. 

TO 

CONTINUE 

300337 Jj 

c 

00 030B33 

REWIND  3 

0003i*90<. 

WRITE  13,150) 

* 

3C 039333 

00  BO  1  >  1. ISTRPT 

03039103 

WAITE  (3,1601  0UM1U  1 ,0UN2 ( I) , DUM1 ( I »3 100 >  ,DUH2 ( 1 0 100 > 

3003/23.. 

so 

CONTINUE 

03039300 

WRITE  ( 3, 1  TO) 

00039433 

GO  TO  103 

3003953O 

c 

OOOJVoOv. 

c 

OPTIMA  FORMAT 

Ou 03973O 

TO 

WAITE  (3.1R0I 

33339033 

0 

m 

00039900 

0 

COMPUTE  AND  PRINT  GENERATION  SUMMARY  STATISTICS  ON  LOGICAL 

0 

0 

UNIT  6 

J J j IJj 

m 

V 

G00402UO 

! 
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1 

| 

i 

<$0& 

t 

■  1 

✓ 

oooooo  onunn  o  u  m » u  n  o  «>rM»on  onor»«»oo  oooo  rutnnouoo 


START  GENT R AT ( ON  OF  LOGICAL  SUB-MATRICES 

CALL  SUBROUTINE  COM3  A  T  10  GENERATE  THE  LOGICAL  SUe-MATRIX  OF 
COLUMN  VECTORS  THAT  REPRESENT  THE  COMBAT  MODULES  OF  A  FORCE 
MODEL. 


CALL  COMBAT 

CALL  SUBROUTINE  SUPORT  TO  GENERATE  THE  LOGICAL 
COLUMN  VECTORS  THAT  REPRESENT  THE  SUPPORT  UNITS 

CALL  SUPORT 


SUB- MATRIX 
OF  A  FORCE 


OF 


IF  TOLERANCE  IS  ALLOWED  AT  ALL  ON  INDIVIDUAL  ALLOCATION  RULE 
COEFFICIENTS  I  I'lLRSW  'll. 

CALL  SU3R0UT  INE  TJLRNC  ONCE  TO  GENERATE 
REPRESENT  INC.  ANY  USER  SPECIFIED  MAXIMUM 
DEVIATIONS  FROM  THOSE  Rf  CUIREMENTS. 


MATRIX  STRUCTURE 
LOWER  AND/CR  UPPER 


ALL  IUMIXSM 
STRUCTURE 


II 


MEMBER  NAME  CONGEN 

00026700 
JG  02o  3-- 
0 -U2otD j 
-002*300 
GO J29iJj 
03 02V 20 J 
OCO 29  3-w 
—-—2990- 
00029300 
00029300 
CO -297-3 
MDOELOu J2VsO 0 
'000294-3 
0003 0-00 
G-uj  J 100 
--U302.G 
33-3-33- 
JO-j-'.JG 
03- J33-Q 
000306 jj 
-333 0700 
00030o00 
00030900 
-3-31-3- 
00031 10j 
00-31*30 
3003133- 
30-Ji4 J- 
00031300 
0003160 j 
JO  03 1 700 
COOJIBOO 
00031900 
000320-0 
00032 10 0 
00032200 
-0332-33 
G0-J24G- 
0003230 j 
00032o0j 
00032  700 
0003260j 
000029- j 
000330 Oj 
00033 lu  j 
00033200 
00 u333 j- 
---3340- 
00-333-0 

C  J00i3oj- 

C  J— — 3370- 

CCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0o-3330- 
;  0-03390. 

C  G0034--. 

00o3tl0- 
33-3423- 
330343- - 
0003-.400 


IF  ITOLRSW.EO.il  CALL  TOLRNC 

ir  UNIT  MIX  CONSTRAINTS  MAY  RF  REPRESENTED  AT 
CALL  SUBROUTINE  UNIMIX  ONCE  TO  GENERATE  MATRIX 
REPRESENTING  ALL  USER  SPECIFIED  UNIT  MIXES. 

IF  (UMIXSW.EQ.il  CALL  UNIMIX 


IF  SUPPJRT  UNIT  SUBSTITUTIONS  IN  SATISFACTION  OF  ALLOCATION 
RJLES  ARE  ALLOWED  AT  ALL  I  SlIRSW  *  II  ,  CALL  SUBROUTINE  SUBSTI 
TO  GENERATE  THE  SUOMATRIX  OF  ALLOWABLE  SUBSTITUTIONS 


IF  (SUBSW.EQ.il  CALL  SUBSTI 


HNUGEN  TO  ACCEPT  ANY  HAND-PREPAREC  MATRIX 


CALL  SUBROUTINE 
STRUCTURE. 

CALL  HNDGEN 


OUTPUT  THE  ROW  IDENTIFICATION  FILE  IN  THE  MPS  LANGUAGE 
SPECIFIED  BY  INPUT  DATA  VAIUARLE  LANGSW  AS  /TAPE7/ 

BY  A  CALL  TO  SUOROJTINF  ROWUUT 

CALL  RQWOUT 


AS 


END  ADVANCED  START  BASIS  FILF 
VARIABLE  UNGSW 

IF  (LANGSW. NE. 1)  GO  TO  90 


/TAPE37  ACCORDING  TO  INPUT  DATA 


/ 
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MEMBER  NAME  CONGEN 

_ 100  MSIZE  •  INOEX  ♦  N03 J  -  1  . .  0004D300 

WRITE  (6*  1901  NCOMBTfNSJPRT  ,MSI  ZE*L  S TCOL, NNA I J , NCNT  000*3*00 

Z  GO  0*J50j 

CALL  EXIT  G0G4j6.Jj 


C  GJ04-70j 

C  000*  JBO  -j 

„  120  FORMAT  ( 7HC0LUMNS,  73X1  J0J4j90„ 

130  FORMAT  { 1X.4HF  ILE  ,  5X ,  5-IT APE  3 , 65X/1 X ,  5HBAS I  S,  74X)  00u4i00j 

140  FORMAT! IX, A3, 4X, 244, 64X1  0004110j 

150  F0RMATI4HNAMF,  1DX, 5MTAPE3,61X)  300*1200 

160  FORMAT! IX*2HKL*1X,244,2X,2A4, 58X1  00041300 

170  FDRMATI6MENDATA*74<)  30041*0j 

.  180  FORMAT  ( IX, 7HENDF ILF, 72X1  000* 150j 


190  FORMAT!  lHl/////////tH  , 6  IX , 7HCCNF0RM/1H0, 5 IX , 28HLP  MATRIX  GENERAT 1 000* loOO 
•ON  SUMMARY////1H  ,54X,I3,18H  CCMBAT  UNIT  TYPES/1H  ,54X,|3,19H  SUPP00041 70o 
•ORT  UNIT  TYPES////1U  «  15X,2 OH TOTAL  ROWS  GENERATED*  16X«  I6il2X ,  3 1 HPOO  jO*.  dGw< 
•WIO  IS  FORTRAN  LOGICAL  UNIT  7//IM  ,  1 5X .34HTOTA L  STRUCTURAL  C0LUMNSG004 1 YOG 

*  GENERATEO, 2X,  16, 12X,15HC0LI0  IS  UNIT  1//1H  , 1 5X ,34HT0T Al  NCN-NULL0uU42 JJ„ 

•  MATRIX  COEFFICIENTS, 2X, |6, 12X.29HMATRIX  ELEMENT  FILE  IS  UNIT  4//10004210C 

*H  , 15X.29HTOTAL  CANDIDATE  BASIS  VECT0RS,7X,I6  ,1 2X, 30F ADVANCE C  STAPJ00*220u 
*T  BASIS  IS  UNIT  3////1H  ,24X,65HN0TE  — EXCFPT  FOR  NUMBER  CF  CCMBAT  JjO*23Jj 
•AND  SUPPORT  UNIT  TYPES  MODELED, /1H  ,  33  X,  59HSUMMARY  STATISTICS  INCl 00042*00 
♦UDE  ANY  HAND-PREPARED  MODEL  IMATRI*)/IH  , 30X ,48HS TRUCTURE  INPUT  T00004250G 
«  THE  CONFORM  MATRIX  GENERATOR.)  00042o0w> 


C 


C 

C 

C 

c 

c 


5 

c 

10 

c 

c 


END 

juffunuT norm  <  nt ypttois r^rarsn — 

CONGEN  6  JUNE  72 


SUBPROGRAM  TO  GENERATE  THE  FILE  Oc  UNIQUE  BASIS  NAMES  -  TAPE3 
THIS  IS  A  LIST  OF  CANDIDATE  LP  BASIS  VECTORS  THAT  IS  OF  SIZE  M 
AND  IS  THE  OPTIMAL  SOLUTION  FOR  A  CLASS  OF  MODELS 

COMMON  /BET/STR.LGL 

COMMON  /ROWS/RNAMESI  3000,2)  ,  RTYPt-S!  3000) 

COMMON  /SPAN/NCNT 

COMMON  /LPSYS/LANGSW,PRBNAM!2),0ATS0R 
COMMON  /PRBCT/ INDEX 

INTEGER  PR HNAM , DA TSOR 

INTEGER  RNAMES,STR,LGL,RTYPES  . . . . . 


60042  7  jj 
00042  SOt/ 
30 G4<  Y j  j 
JO J4j j Jj 
00J4310J 
000432J0 
00043 j Oj 
0Jo43*Jj 
00043500 
000436J J 
000437jj 
JG043o  jj 
OOJ439Jj 
UC 044000 
OG 044100 
30<o4*<3j 
000443 Jj 
00u4 *4 Oj 

000445 Jj 
J00*4oJ j 


000*4 7 Ju 

IF  THIS  VECTOR  IS  A  ROW  VECTOR,  DO  NOT  INCLUOF  IT  IN  THIS  LIST  30G446Jj 
IF  IT  IS  ALREADY  IN  THE  ROW  IDENTIFICATION  TILE  -  RNAMES  OOu449Jj 

0004  50 JJ 


IF  INTYP.EQ.STR)  GO  TO  10 
DO  5  I  »  1, INOEX 

IF  (RNAMESt  1,1 1.EQ.NBAS1 .ANO.RNAMF  SI  I  •  2 ) . EQ.NBAS2)  RETURN 
CONTINUE 

IF  ILANGSW.EQ.2)  GO  TO  25 

MPS/360  FORMAT 

WRITE  13,45)  NTYP ,NBAS1 , N3AS2 
GO  TO  30 


000451  JJ 
06 3*520j 
30 j45 j j j 
30 j*j4Jj 
Joofiti J j 
JOOfJoJj 
30045  7 Oj 
JO  Of  58  j  j 
300*59 Jj 
0Gu*6G JJ 


I 
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MEMBER  NAME  CONCEN 

C 

OPTIMA  FORMAT 

OGu4olOJ 

25 

17  «  MASK!  NBA  S2  ,  3  I 

000-*u2bb 

IB  *  MASK!  N3AS2  .  4  ) 

0004530 0 

WAITE  13,501  NTVP,N3ASI,N3AS2,17,I8 

00O464BB 

C 

00b4o50b 

30 

NCNT'NCNT  *1 

0004uo0j 

C 

0004b  700 

RETURN 

GO 04 6 8bb 

C 

0004o  loo 

C 

0004 70 00 

45 

FORMAT ( IX, A  3, 4X, 2 44,64X1 

00U47 10j 

50 

FORMAT  ( 1X,A3,6X,A4,42,1H.,2A1I 

0004720b 

END 

0004 7 JuO 

SUBROUTINE  BRK  30GI  I,  11, I 2,131 

0004  /4bb 

C 

300475 bO 

c 

CONCEN  6  JUNE  72 

J004  760b 

w 

0004/700 

c 

BRK30G  IS  A  FORTRAN  IV  FUNCTION  SUBPROGRAM  THAT  ACCEPTS 

0004780b 

c 

A  3-DIGIT  INTEGER  <S  ONE  CALLING  PARAMTER  AND  RFTUPNS  THE 

0004 790b 

c 

3  DIGITS  AS  3  HOLEAITH  CHARACTERS  AS  FORMAL  PARAMETERS. 

00  04d000 

c 

BRK30G  CALLS  FUNCTION  INTHOL  AND  IS  USED  TO  PREPARE  UNIT 

OuUtdldJ 

c 

IDENTIFICATION  NUMBERS  FOR  USE  IN  MODEL  ROW  AND  CCLUMN  NAMES. 

000to20j 

c 

OC 04830b 

c 

0004840b 

c 

I  ...3- DIGIT  INTEGER  INPUT  FOR  BREAK-UP  AND  CCNVERSICN 

0004d50B 

FROM  INTEGER  TO  HOLER  1 TH. 

00048o0b 

c 

11.. .LEFT-MOST  DIGIT  RETURN!  D  AS  A  HOLER  I TH  CHARACTER 

0u048 700 

c 

12.. .SECOND  DIGIT  RETURNED  AS  A  HOLLER  1 1 M  CHARACTER 

3004880b 

c 

13..  .RIGHT-MOST  DIGIT  RETURNED  AS  A  HOI  LERI TH  CHARACTER 

0GG489JO 

c 

0004900b 

c 

00049 IbJ 

* 

V 

BREAK  APART  DIGITS 

0004920b 

c 

0004930b 

11  «  1  /  100 

30u-»94bb 

13  *  1  -  11/101*10 

b00495bb 

12  *  1  1  -  (11*100  ♦  13)  1  /  10 

00049O00 

r 

0004970b 

c 

CONVERT  EACH  DIGIT  FROM  INTEGER  TO  HOLLERITH  BY  A  CALL 

00  049800 

* 

w 

TO  FUNCTION  INTHOL. 

00U499UB 

c 

0005 jOOO 

11  *  INTHOL 1  11  I 

OOOpOIbb 

12  «  INI HOL  (  12  ) 

300)0200 

13  *  INTHilL  (  13  1 

000)0300 

c 

000)040b 

RETURN 

00u50) JO 

c 

00u5uo0b 

END 

0005070b 

SUrUrtUf IMfc  CH4  K I N I / X  n / , / 3 / ) 

U JO) B  OBJ 

c 

(1J1 

000)0900 

c 

13  JUNE  72 

J0051OUJ 

c 

4 

00051 100 

c 

CHARIN  IS  A  SUOROUTl.NE  SUBPROGRAM  THAT  INSERTS  A  LEFT- JUS  TI F  IEDUOO) 1200 

BLANK-FILLED  HOLLERITH  CHARACTER  (A)  INTO  CHARACTER  POSITION 

1  0Ob)130b 

c 

OF  INPUT  WORD  IXRJ  .  THE  CHARACTER  POSITION  IS  SPECIFIED 

OOb) i 40b 

c 

BY  THE  ENTRY  POINT  NAME. 

UOO) 1 OGw 

c 

300)1600 

LOGICAL* 1  A ,X( 41 

oOO). 70b 

INTEGER  XR 

000)1000 

201 

<5*S> 


/ 


n  no  ooo  o  o  o  oo  o  ooooooo 


MEMBER  NAME  CONGEN 

EQUIVALENCE  INTEMP, X) 

c 

ENTRY  IN  II  /XR / ,/A/l 
NTEMP  »  XR 
Kill  -  A 
XR  «  NIEMP 
RETURN 
C 

ENTRY  I N 2 C /XR/ ,/A/l 
NTEMP  ■  XR 
X(  2 1  ■  A 
XR  «  NTEMP 
RETURN 
C 

ENTRY  IN3(/XK/,/A/i 
NTEMP  ■  XR 
XI 3 )  «  A 
XR  *  NTEMP 
RETURN 
C 

FNTRY  IN4I/XR/./A/) 

NTEMP  •  XR 
XI4)  -  A 
XR  -  NTEMP 

_ RETURN  .....  .  .  . 

END _ 

SUBROUTINE  COL  10 

CONGEN  6  JUNE  72 


SUBPROGRAM  TO  STORE, COUNT  THE  MATRIX  COLUMNS. 
( UNIQUE  COLUMN  NAMES  ARE  ASSUMEOI 

COMMON  /COLCHT/LSTCOL 

COMMON  /LPSYS/l.ANGSW,PRBNAMI2I,DATS0R 

COMMON  /NAMES/NVAR1»NVAR2*NRQW1» NR0K2, NNX , NNN 

INTEGER  PRBNAM.OATSOR 


LSTC0L“LSTC0L*  1 

WRITE  THIS  COLUMN  NAME  ON  FILE  /TAPE  1/ 

IF  ILANGSM.EQ. 2)  GO  TO  IS 

MPS360  FORMAT 

WRITE  11,135)  NVAR1,NVAR2 
RETURN 

OPTIMA  FORMAT 

5  17  »  MASK!  NVAR2  ,  3  ) 

Ifl  ■  MASK!  NVAR2  ,  4  ) 

WRITE  (1,140)  NVAR1,NVAR2,I7,I8 


_  ooo>i90u 
00032000 
0005*1 JJ 
00032200 
00b!>2300 
00032 4  jO 
00u5230u 
0005260 j 
00032700 
0003280b! 
J0u5290j 
00053000 
00033  lw>0 
000S3200 
0003530 j 
OOb/35400 
0005350b! 
00053o0 j 
0UU33700 
OOOS3BOO 
00033900 
00u5400J 
00054100 
0005420 J 
.  00034500 
0005440b) 
00054503 
00034600 
00034700 
00054800 
O003430J 
OOujSOuO 
0003510J 
00033200 
00033300 
OCb/33400 
00 05550O 
000556b<  j 
000557 Oj 
00055800 
00035900 
00053000 
O0O36100 
0005620  0 
0003o3>  o 
00056400 
00 0333 Ou 
00U3O600 
OOuso  70w 
0003360b! 
OOOSvVOb! 
0005700b) 
0  j0s7  ijb! 
0^05  720b! 
00057300 
00.37403 
jO 03  7500 
0003760b! 
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MEMBER  NAME  CONGEN 
RETURN 
C 

135  FORMAT  I  <«X  ,  2A4 , 69  X  ) 

140  FORMAT  I  IX,  JHSTR,6K,A4,A2,1H.  .2A1.61X) 

C 

_ END _ 

BLOCK  O-MA 

C  BLOCK  DATA  GENRAT 

C 

C  CONGEN  6  JUNE  72 

DIMENSION  IPISTA(3,*2) 

C 

COMMON  /ALPHA/N'JI  351 

COMMON  /3ET/STR.LGL 

COMMON  /SIGN/NEG,PLUS,ZERD,BLK,FREF 

COMMDN/REQTOL/TOLRSW, TOL  S ( 2350 , 3 » , NTOL S , ALRTY P 
C 

c 

INTEGER  NEC, PL  US, ZERO, BLK, FREE 
EQUIVALENCE  INCSO  ,T0LS1  1,11) 

EQUIVALENCE  I  NPT STA, TOL  S 1  2,1)) 

EQUIVALENCE  I  I PTSTAI 1, 1 J  ,  TOL SI  3, 1) ) 

C 

OATA  NC ST/  32  / 

OATA  NPTSTA/  6  / 

DATA  IPTST4/  0 , 1 ,  1 . 1  ,C ,  0 ,0, 0, 1 , l  ,0 ,0 ,0 , 1 , 

*  l ,  1 , 1 , 1 , 1 , 1 , 1 , 1 , 0 , 1 , 1 , 1 , 1 , 0 , 0 ,9 , 1 , 1  , 

*  14*1  ,  18*0  / 

C 

C  THE  PRINCIPAL  CONGEN  N0N-3LANK  MNEMONIC  CHARACTER  SET 

DATA  NU/IM1,III2, 1H3, 1H4,  1H5 , 1M6, 1H 7 , 1H8 , l HO,  IMA , 1 HB  ,  1HC  ,  ! HC, IHE  , 
1 1HF ,  lHG ,  1HH,  1H  I  ,  1HJ  ,  1HK  ,  1HL ,  1 HM,  1HN  ,  1H0  ,  IMP,  1HQ,  1HR  ,  1HS,  1HT,  1H'J, 
21HV,1HW,1HX,1HY,1HZ/ 

C 

C  PLUS  AND  MINUS  SIGNS, A  BLANK, AND  A  ZERO  USED  FOR  ROW  TYPES 
C  AND  SOME  ROW  AND  COLUMN  NAMES 

C 

OATA  NEC/1H-/,  PLUS/1H*/, ZER0/1H0/,BLK/IH  / 

C  A  FREE  I UNCONSTRM NEO)  TYPE  ROW  INDICATOR 
C 

DATA  FREE/  1HF  / 

C 

C 

:  STRJCTIIRAL  AND  LOGICAL  VECTOR  INDICATORS  USED  IN  MAKING  UP  THE 

C  LIST  OF  CANDIDATE  LP  BASIS  VECTORS  ITAPE3) 

C 

DATA  STR/3HSTR/.LGL/3HLGL/ 

C 

C 

_ END _ 

SUBROUTINE  HNOGEN 
C 

C  CONGEN  6  JUNE  72 

C 

c 

C  SUBROUTINE  TO  GENERATE  THE  CALLS  TO  MA TRD ,ROW 10 , MAT WRT, COL  I D 


OOu 577J j 
0GG:>7tlG0 
J JOS 790v 
OuusdOoO 
JOOadl 00 
00  Oad2 J  j 
OCmj  jd  jJ  o 
JO J5640J 
000:* dSJj 
OOUabbOu 
0005b70u 
OGOsdoJj 
0LG5d90u 
00o59  JO./ 
00059x0./ 
000592J./ 
0006930J 
v/uu 5940j 
GuG5950u 
00i/59o00 
00059700 
1/0059  80./ 
JC 059900 
OuooJOOO 
CO 060100 
00ut>020u 
0606v/30o 
UOOoO*,  00 
OOObO  500 
OOObuoJO 
00uu07 JO 
OOOwiOdOO 
OOobOVu u 
OOOoluO 
OOOo 1 100 
JO  06 1200 
OOoolOOO 
OOO0I4OO 
00061500 
OOUblb jj 
J0U61 700 
00061800 
00061900 
J00u20w0 
J00a2 100 
000O220J 

0006250./ 

OOOO240U 

000&2500 

000w2o  sij 

00O6 2 7u j 
U00o2d>/j 
0u0629jvs 
000o30uU 
0006310 J 

0006 i2 jj 

00uo3300 
JOuo J4uJ 
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/ 


o  o  r*  o  o  o  ooooo  o  nr»nr>nnor>on 


* 

*» 


MEMBER  NAME  C ONGEN 

C  FOR  ACCEPTANCE  OF  ANY  USER  PREPARED  MATRIX  STRUCTURE  -  HANDGEN 

C 

COMMON  /NAMES/NVARl.NVAR 2, NROWl, NR0W2,  NNX  «NNN 
COMMON  / SI 3N/NEG, PLUS. ZERO.BLK, FREE 
C 

INTEGER  NEG, PLUS, ZERO.BLK, FREE 

C  ...... 

LSTVR1  «  0 
LSTVR2  ■  0 
C 

5  CALL  MATRDI VAL  > 

IF  (NRUtU.EU.BLK.AND.NKOW2.EQ.BLK)  RETURN 

CALL  ROWID 

CALL  MATWRTC VAL ) 

IF  ( NVARl.EO.L  ST VR I . AND . NVAR2 <EQ .LST VR2 )  GO  TO  5 

LSTVR1  »  NVAR1 
LSTVR2  *  NVAR2 
CALL  COLID 
GO  TO  5 
C 

_ tie _ 

FUNCTION  INTMOLU) 


3006J6JJ 
OOOndbJu 
000637 00 
JO Joibjj 
000»J90J 
00u6400j 
JJ Jot 10 j 
0Jj6420w 
00 J643Jo 
JJ Jo t4 Jo 
OOOot jOj 
000o4oJJ 
000o47oJ 
000o4boo 
000o490J 
0006 JO JO 

00065100 

00065203 

J00o53Jj 

30u6j4Jj 

00066500 

OO0666OJ 

J00o570o 


10 

c 

c 

23 

30 


CONGEN 


6  JUNE  72 


J0Go533J 


u00o59Jj 

INTHOL  IS  A  FORTRAN  IV  FUNCTION  SUBPROGRAM  THAT  ACCEPTS  AS  00066000 
A  FORMAL  PAR  AME  TFR  AN  INTEGER  OIGIT  (Oil,. ..,91  ANC  RETURNS  3JU6610j 
THE  HOLLERITH  CHARACTER  FUR  THAT  OIGIT  IZERO  OR  NU(II  FOR  1-1,9)00066200 


(...INTEGER  0,1,. ..OR  9 


COMMON  /ALPHA/NUI 35) 

COMMON  /SIGN/NEG, PLUS. ZERO.BLK, FREE 

INTEGER  NEG, PLUS, ZERO.BLK, FREE 


IF  I  IS  NEGATIVE  OR  GREATER  THAN  9,  PRINT  AN  ERROR  MESSAGE 
ON  LOGICAL  UNIT  6  AN3  TERMINATE  FOMGEN  EXECUTION  BY  STOP  0003 

IF  (I.LT.0.0R.I.GT.9)  GO  TO  20 

IF  I  IS  1,2, ...OR  9,  ITS  HOLLERITH  CHARACTER  IS  IN  ARRAY  NU. 

IF  (I.EQ.O)  GO  TO  10 
INTHOL  «  NU(l) 

RETURN 

IF  I  IS  0,  ITS  HOLLERITH  CHARACTER  IS  VARIABLE  ZERO. 

INTHOL  •  ZERO 
RETURN 


WRITE  (6,331  1 

FORMAT! IH1/////1H  ,42H*****  FUNCTION  INTHOL  WAS  CALLED  WITH  I  - 
*5, 18H  (NOT  0.1,. ..OR  9) ) 


000663 Jj 
000664Jj 
000 j65uJ 
JJU666J* 
030667 JJ 
OCObOdQu 
JO J669JJ 
0CJ67 JJ J 
OOOoTlOO 
3006  7  2 Jj 
JJ Jo73 Jj 
0306  7  40J 
000675Jj 
0306  7  63 J 
00C677J./ 
000u760J 
0006 7 93 j 
uJoodO JJ 
00066 10J 
3C 363233 
JO Jo83jJ 
30066433 
000635 JO 
33  Gu 163 J 
30363  70j 
30063600 
0006393 J 
000690 jj 
, I0306910J 
JO J692JJ 
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MEMBER  NAME  CONGEN 
STOP  0003 


E  NO _ 

FlINCl  ION  KJGfcM  10  » 

CONGEN  6  JUNE  72 

KJGET  IS  A  FIRMAN  IV  FUNCTION  SUBPROGRAM  THAT  ACCEPTS  AS  A 
CALLING  PARA  IT c R  AN  EXTEIN'L  I OFNT IF ICAT ION  NUMBER  LF  A  UNIT 
(DIM  NUMBER)  AND  OC I  ERMINES  IHf  FOMGFN  INTERNAL  IDENTIFICATION 
NUMBER-- 1.2,  ....  NC0M31  »\COMP  H 1 , . . . , NCOMBl  *-NSUPRT. 

6VTFRNAL  UNIT  10  NUAELRS  ARE  STJRfcO  IN  CUMMHN  ARRAY  0TM|600I  • 
FOR  NCUM3T  C  FT  HA  T  M03UU  S»  THEN  FOR  NStlPRT  SUPPORT  UNITS. 

AN  ERROR  MESSAGE  IS  WRITTEN  ON  UNIT  6  AND  FOMGEN  EXECUTION  IS 
TERMINATED  BY  STOP  0004  IF  PARAMETER  10  IS  NOT  FCUND  IN 
ARRAY  DTM 

ID. ..EXTERNAL  UNIT  I DENTIF ICAT I  ON  NUMBER 


COMMON  /DESCRP /SVRNTHl  7601  .OTMC760I .COSTI760) 
COMMON  /LPSYS/t.4.NCSw,PR3NAM( 2I.OATSOR 
COMMON  /RESULU/NCOMB  T.NSUPRT.MPRAM.NPRAMU 

INTEGER  OTM 


NUN  I T  *  NCOMBT  ♦  NSUPRT 
00  10  I  *  1, NUN  IT 

IF  (OTMI  II.NE. 101  GO  TO  10 

KJGET  «  I 

RETURN 

0  CONTINUE 


WRITE  (6,20)  10 

0  FORMAT! 1H1/////1H  ,42H»«***  FUNCTION  KJGET  WAS  CALLED  WITH  ID  •  , 
*5,26M  WHICH  IS  NOT  IN  ARRAY  OTMJ 
STOP  0004 


_ END _ _ _ _ 

SUBROUTINE  KJJNRKI  IARRAY.LCjC.  IDl  ,  lbil 
C  CONGEN  6  JUNF  72 

COMMON  /Rf OF AC /COE FI  6000 I , K JCO'F ( 30001 »NANZ«  NBNZ 
CI  MMON  /'(EOTOL  /TOLRSW,  TOLSI2  35  0,  3) ,  NTOLS,  ALRTYP 
INTEGER  IOLS 

IF  I  IARRAY.NE. II  GO  TO  10 

101  »  KJCOEFILOC)  /  1000 

102  *  KJCOEFILOC)  -  101  *  1C00 
RETURN 

10  101  *  TOL SI LOC , 1 1  /  1000 

102  *  TULSI LUC , 1 )  -  ICi  ♦  1000 
RETURN 


30 0 O930J 
33i>o943  J 
30 

00  vi>9t>uj 

OCiJot  7Jj 
30  069803 
OC Jo990j 
0 3 J7u Jy j 
00u7 313 j 
u007C2uu 
000/3303 
Ju3734jj 
-UJ0735J3 
k.307  jt>Oj 
003  707J  j 
oG 37 JdU j 
3C07G903 
00o7i3uJ 
00071 103 
O3071233 
3337 1 333 
J03/14G3 
03371303 
33371633 
OOu/l 733 
000/ IU0» 
J Ju7 1 93  J 
33372333 
OOO/KlOU 
03 372233 
3007233.4 
00u724>.j 
03u7233J 
30  372  oo*/ 
00072703 
00072603 
03072933 
33373033 
3337 3103 
133373203 
3^373303 
3037  34w3 
33373533 
30373603 
0007  370.5 

033/3603 

03373930 
00O7-.GUO 
033  74 100 
33  3  792w J 
00074330 
00  3  7  *,433 

333  7tS3J 
00074ojo 
303 J  4  733 
OJC  74oGt, 
03074903 


END 


JO  07  50u  J 


MEMBER  NAME  CONGEN 

FJNCTION  MASK! XR,  1 1  .  ...  _  _ 

13  JUNE  72 

MASK  IS  A  FUNCTION  SUBPROGRAM  THAT  MASKS-OFF  CHARACTER  I 
OF  INPUT  WORD  XR  AND  RETURNS  IT  AS  LEFT-JUSTIFIED  AND 
BLANK-FILLED  FUNCTION  VALUE  . 

LOGICAL  *1  X  f  4 ) , Y I  4 1 
INTEGER  XR.8LANK/4M  ✓ 

EQUIVALENCE  I  I  TEMP,  X J , (J TEMP, VI 

ITEMP  «  BLANK 
JTEMP  ■  XR 
XIII  «  VIII 
MASK  «  ITEMP 
RETURN 

END _ 

SUBROUTINE  MATRIX  VAL) 

C 

C  CONGEN  6  JUNE  72 

C 

C 

C  SUBROUTINE  SUBPROGRAM  TO  READ  HAND-GENERATED 

C  STRUCTURE  OF  THE  MATRIX  ELEMENT  FILE, FROM 

C  /TAPE5-INPUT/ 

C 

COMMON  /I.PSYS/LANGSW,PRRNAM<2)  .DATSOR 
COMMON  /NAHES/NVAR1,  NVA R 2, NROWl, NRDW2 , NNX ,NNN 
C 

INTEGER  PR BNAM , DATSOR 
C 

IF  ILANGSW.EQ.2I  GO  TO  IS 
C 

C  MPS/36D  FORMAT 

C 

READ  (5*251  NNX.NVARl,  N VAR2 , NROWl , NROW2 , NNN,  VAL  _ 

RETURN 

C 

C  OPTIMA  FORMAT 

C 

IS  READ  (5*30)  NNX ,  NRi  ,NR2 ,NR3 ,NR4  ,NR5 ,NR6,NR7  ,NRB ,NV1 ,NV2, NV3  ,NV*, 
♦  NV5,NV6,NV7, NVB, NNN, VAL 

NROWl  «  NAME!  N Rl» NR2 ,NR  3 , NK4 J 

NR0W2  »  NAME(NRS,NR6,NR7,NR8I 

NVAR1  ■  NAME!NV1,NV2,NV3,NV4) 

NVAR2  «  NAME! N VS, NV6 ,NV7 ,NV8 ) 

RETURN 

C 

C 

C 

2  5  FORMAT!  Al,  JX.2A4, 2X,  2A4,  2X,A1,FU.6> 

30  F3RMATI A1,9X,6A1,  IX,  2A 1 , IX ,6A1 , 1 X , 2 A  1 ,  l X, A 1,F 11 .6) 

_ §Nn _ _ _ 

SUBRUUT INE  MAT WRT ! VA L I 
C 

C  CONGEN  &  JUNE  72 

C 


3007:>ia: 

J007>20J 

0007330: 

J007340. 

0007550. 

0007io0. 

0007570. 

GGo7?8Ci. 

0007a90- 

Ji)07oJu« 

G 007:10. 

0007o2C. 

0007630. 

DG:7o4D. 

G007&5:. 

0007:60. 

300767:0 

0007680. 

lOu7oyO. 

0007700. 

GO  077  id: 

UU07720. 

0G077  JGt. 

00077*,:. 

00077500 

0007  760. 

000777:- 

0007780. 

0007790. 

000730:. 

0007310. 

0007820 0 

0007330: 

0007840: 

OOwTaSO. 

0007860: 

00:7370. 

0007380. 

0G0789J. 

UG079D0: 

0007410. 

OGU792U- 

0007930. 

0007440. 

00  079 5o. 

0007460. 

J00797J. 

OC07580. 

00079900 

OGwBwO:. 

OOOojIO. 

0008:20. 

0008::: . 

Jl:oC40. 

0J06. p:  . 

0003:6:. 

0006:70. 

OG 08380. 
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MEMBER  NAME  CONGEN 

C 

SUBROUT  1 NF  SUBPROGRAM  TO  WRITE  THE  MATRIX  ELFMENT  FILE  (TAPE4) 

000d090o 

C 

COEFFICIENT  BY  COEFFICIENT  AS  CALLED,  IN  THE  FORMAT  OF  THE 

LP 

CGOdlOOJ 

c 

SYSTEM  SPECIFIED  BY  INPUT  DATA  VARIABLE  LANGSW 

OOOdilGJ 

c 

OOOdLlUG 

c 

00  -id  1  JO  j 

COMMON  /AlJ/NNAIJ 

OODBIm 00 

COMMON  /LPSYS/LAN 3SW,PRBNAM(  21 *DATSOR 

OOOdlaOj 

COMMON  /.V\1FS/NVAR1,NVAR2, NROW 1, NR0W2, NNX , NNN 

0006  i  6jj 

COMMON  /S1GN/NEG,?LUS,7CR0,BLK,FCCE 

JOOdl 700 

c 

OOOd 1  BOO 

INTEGER  NEG, PLUS, ZERO, OIK, FREE 

OOudlVdO 

INTFGER  PR  BN AM , OA  T  S3R 

DOJ82000 

c 

00082 10U 

NNAIJ  =  NNAIJ  ♦  1 

00082200 

IF  (LANGSn'.EQ.  2)  GO  TO  15 

000823jJ 

c 

00062400 

f 

w> 

MPS/360  FORMAT 

0008250* 

at 

•j 

00 O82b0 J 

WRITE  14,251  NVAR1,NVAR2,NR0W1,NR0W2,NNN,VAL 

00062  7*0 

RETURN 

0006260J 

c 

00082900 

c 

OPTIMA  FORMAT 

00  u8 300  J 

c 

00033100 

15 

17  -  MASK!  NK0W2  •  3  ) 

000U32JO 

IB  *  MASK!  NR0W2  ,  4  J 

00063300 

J7  *  MASK!  NVAR2  ,  3  ) 

000a 340* 

J8  «  MASK!  NVAR2  ,  4  1 

OOOBJaO* 

WRITE  (4,30)  NRUW1,NR0W2,I7,  I  B ,NVAR1 ,N VAR  2 ,  J7 , JB ,NNN ,VAL 

00083600 

RETURN 

0G0SJ70U 

C 

OOOUJBOj 

c 

OGOdJYO* 

25 

FORMAT! 4X,2A4,2X,2A4.2X, A 1,  FI 1.6,41 X) 

OOUd4UOO 

30 

FORMAT!  1X,3HAIJ,6X,A4,A2,1H.  , 2 A1 ,6X  ,  1H , ,  A4  ,A2 , 1 H. , 2 A 1 , 6X , 1H* , 

Al, 

00064100 

*  F11.6.26X) 

0O08420* 

END 

00084 JO* 

0006440* 

C 

J0J84S 00 

c 

13  JUNE  72 

00  084  600 

c 

0 008470* 

w 

NAME  IS  A  FUNCTION  SUBPROGRAM  THAT  CONCATENATES  FOUR  14) 

00084600 

* 

LEFT-JUSTIFIED  HOLLcR I TH  CHARACTERS  TO  FORM  ONE-HALF 

JOOU4YOO 

* 

** 

OF  CONGEN  LP  MODEL  ROW  AND  COLUMN  VECTOR  NAMES. 

OOOd 50^0 

c 

0006510J 

LOGICAL  *  1  A1,A2,A3,A4,X(4I 

0006 JiOd 

INTEGER  XR 

000U8 JOO 

EQUIVALENCE  (XR,X) 

00*8540* 

c 

00068500 

XI 1)  «  A1 

GGOodb 0* 

XI 2)  «  A2 

0006?  70* 

XI 31  «  A3 

000o5d** 

XI 4)  «  A4 

000689 Ou 

NAME  ■  XR 

JC*o600* 

RETURN 

OGvdol J* 

END 

00udb2oG 

SUBROUTINE  ROW  ID 

0009O JO* 

r 

000do40* 

c 

CONGEN  6  JUNE  72 

oOuoto** 

C  OOOdaoJj 


207 


/ 


1,1,000  °  OOOOO  OCJOO  UNO  I  OOUUOUUOUUUOUUUOIIODUU 


MEMBER  NAME  CONGEN 

SUBROUTINE  TO  GENERATE  THE  FILE  OF  UNIQUE  ROM  VECTOR  NAMES 
(ARRAY  RNAME  S,  RTYPESI  TO  BE  WRITTEN  IN  SUBROUTINE  SOWOUT  AS 
THE  MODEL  ROM  IDENTIFICATION  FILE  (TAPE7 I 


COMMON  /NAMES/NVAR1,NVAR2,NR0W1,NR0W2,NNX,NNN 
COMMON  /PRBCT/INOEX 

COMMON  /KOWS/RNAMESI  3000 ,2 » , R T YPESI 30001 
INTEGER  RNAMES *KTYPE S 


IF  THIS  ROM  VECT3R  NAME  HAS  BEEN  PREVIOUSLY  GENERATED,  DO  NOT 
INSERT  IT  INTO  THE  LIST  NOW 

DO  IS  KX  «  1,  INDEX 

IF  (KNAMESIKX,  II . E3. NROW l  .  ANO. RNAME S (X X ,2  I .EQ.NROM2 I  RETURN 

IF  (KX.NE.INDEXI  GO  TO  IS 

STORE  THE  NAME  ANO  TYPE  OF  THIS  ROW  VECTOR,  AND  INCREMENT  THE 
COUNT  OF  ROWS  GENERATED 

INDEX* INDEX+1 

IF  I INDEX.GT. 30001  GO  TO  30 

RNAMESI XX, 1 1  ■  NRUWl 
RNAMESI KX, 21  •  NROW2 
RTYPESI KX  I  ■  NNX 
RETURN 

5  CONTINUE 

0  WRITE  16,231 

STOP  0002 

0  FORMAT! 1HI , 23H/RNAME S/  HAS  OVERFLOWED) 

ENO _ _ 

4u(jknuf|fj{  IN  t  T  ' 

CONGEN  A  JUNE  72 


SUBROUTINE  SUBPROGRAM  WHICH  BY  ITSELF  AND  BY  OPTICNAL  SUBROUTINE 
CALLS  PERFORMS  SOME  INTERNAL  VARIABLE  INITIALIZATION  AND  READS 
ALL  INPUT  OATA  ANO  LOGICAL  VARIABLES  (EXCEPT  FOR  HANCCEN  WHICH 
IS  READ  LATER  AND  RIGHT  HAND  SIDE, BOUND  AND/OR  RANGE  OATA  WHICH 
IS  REFERENCED  OUTSIDE  OF  FQMGCN  ITSELF) 

ALL  NECESSARY  ,'AR  I  ABLE  INITIALIZATION  IS  PERFORMED  OU*ING 
EXECUTION  3F  FOMGEN  ANO  NONE  IS  ASSUMEO  TO  HAVE  OTHERWISE 
OCCURRED  PRIOR  TU  FUMGEN  EXECUTION, E .0. • BY  CDC  SYSTEM 
COMMAND  CLEAR. 

THE  OROER  OF  THE  FORTRAN  READ  STATEMENTS  WITH  ASSOCIATED 
COMMENTS  ANO  FORMAT  STATEMENTS  (LISTED  AT  THE  ENO  OF  THE 

subppogrami  presents  both  the  order  ano  format  of  pau  input 

n  FOMGEN  VERSION  1.0 


03389703 
0 OuBaSOJ 
OOOooVww 
liOOo  7033 
GOudZlwU 
0008720 j 
30U37300 
Jo  Jo 76  J3 
30087330 
00007600 
3O3B  77 oo 
0 JOB  780 J 
3003790U 
GOobdOwJ 
JOJddlOj 
00083290 
03088300 
000J66J3 
OOooBSOo 
CCoBOoOO 
303)6703 
00 J808O3 
00038VDD 
OOGB #030 
00369130 
0008)800 
0003)100 
10  0896  33 
OOuBvSOO 
0003)6wj 
uu 38) 7 Jj 
01 08V  80 J 
0003 1903 
00093030 
30093100 
0039320 0 
ooovolOw 
09393630 
0009w>0u 
033906 Jj 
33390733 
0009 J80O 
3CC93900 
30 3V 1000 
00o91 103 
00u91203 
33391 j3o 
00091633 
3939)300 
1009)633 
00091703 
39091603 
03091933 
30392303 
3 Gu9* 1 33 
00392*33 
31 392)33 
33092603 
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MEMBER  NAME  CONGEN 

CCCCCCCCCCCCCCCCCCCCCC:CCCC:CCCCCCrCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCO„uv2‘>...> 

C  OjviittJ 

C  00w /2/0w 


c 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/ AG./ACG-ASW. MAGGR  . SG3KG T  7  i.0 1  . 1  NPAGG,  I  NN  AGC «  20,  2 »  ,  AGL  AM  2S  IOc  j  «  ju 
/CSL/CST»>M  :.?I.CSPMI60»  ,Clt  VPI63I  ,CLPfAt63l 

/SSL/S9VUPI  7  001  .SMSPERI  /COI .SRLPEKJ7  00J .SfSPERI  700 J.  30wV>*wj 


SFLPf «( 7001 

/0fviAT/cssM.cis..,;<!SSM.SRiSMiScssw,srtSM 
/Of  SCRR/STRNIMI  7f»0l  .Of  Ml  7oO»  .COSTC  7631 
/C.  r/Ntft  ,£^FL6HI6,  Jl.f.ff  l«.0,  cl 
/RE  SOL  'J  /NCIi  MM|,  NS’IPRT  .VMAM.NPKAMJ 


OGwVJl 

OJ MViiOu 
UOwViAOkl 
JOwNiS Jj 


/Kc  .>rAC/Cr.EH«l003l,i'JCOCf  <*)03»  .NAN/.NBNi 
/'!(  Of  OL  /f.il  <S.l»  I  III  SI  2  ISO.  3I.NTOIS.AIRTVP 
/MI  I  AIM  l»SW.NM|*r  S.MI  IF  SI  100.31  .  I M  |  lESUCOI 
/LPSVS/LlNGSM.f'RMNiMI  21  .OAfSOR 
/ROW  S/R  NA  ME  SI 33CC,2l,RTVPFSf 30001 
/GOU‘'/OM"S''.GM  I  1*1  7601  , IGMOUPI  760.  21 
/NCON/NCONtblliKf SCUNI6I 

/Sl  fSLU/SJHSI.S'MIlOOl.KJSOMI  |O0,2f  .NSUBS 


OOwVJoju 
wOOS i 7Dj 

00  bVMJJ 
uJuVJVjj 
00G9A033 
JjOVAIUj 
OOuVAijj 
OOwV* J jw 


DIMENSION  BEGfOt  I  2 1 ,  EN0T  01 1 2  I .  PC  C.NI  I  21  .EN0MII2I  .LSf  MII2I 
01  MENS  I «JN  BE  GCiMP  I2I.CN  0GRPI2I.MCGSUB  121  »f  N3SU5 1 2  I 
01  MENS  ION  BEGAGMI ?l,ENniG«(2l 
01  ME  NS  I  ON  lOVf 7*1 6331 


iu  Jt  A>J J 
OGuNACJj 
030VA  7 J j 
JJjVoJj 


C 


c 


c 


01  ME  NS  ION  I  fOL  SI  2  3*0, 31 

INTEGER  SUaSw.MEGS  J,'.fN 'SOS 

I Nf EGER  BFC.GMP.fNDGMM.GAPSM 

INTEGER  BtC.fOL.Et.3UL 

INtEGFR  EN3M<,MfGMI 

fNfEGCK  PCGAC.K.fNDF.OH 

COOIVALE  mCC  «l  f'JLSIl.ll.TOLSd.l  II 

equivalence  i ropivpi ii.Himsi  11 1 


OAT* 

BCGTOL / 

AMCOf * 

.  AMIOL 

/ 

DA  f  A 

CNOIOL/ 

amend; 

.  AMffOt 

/ 

OAl  A 

urcMi/ 

AM  M  , 

AM  |  * 

/ 

DATA 

CN3MI/ 

AMEN3M  , 

AM  |  A 

/ 

OATA 

L  S I M*/ 

AMENOM  , 

AM | IE  S 

/ 

DATA 

ACG&AP/ 

AM  G 

•  AMHWJP 

/ 

OATA 

CNOCAP/ 

AMfNOO 

•  AM40UP 

/ 

0*T  * 

etGSut/ 

AM'JN  1  f 

•  AMSU3S 

/ 

OAl  A 

EN0SU4/ 

AMI  NOS 

•  AMUBS 

/ 

DATA 

HtuACA/ 

AMAGGA  . 

AMfGA  |  i 

DATA 

CnOa  t  * / 

AMENUA  . 

AhC.GR  E  / 

INTEGER  lOkRSR 
INI  EGER  U«HW 
IN  f  f  Cl  R  CttM.'lttf.'MlS*.  SRLSM.  V  SSM.Sf 
INfEGLC  LSIVP.CLUP 
INI  EGER  S3VIVP 
INffk.fR  t C jNSR . AG04GT 
iNf EGER  tail 
REAL  1-ffH. 

RIAL  CIOl 
RfAl  »|«fi 

I N  f  E  Of  A  OIM,AL«f»P.fff l AR.Rf SCrN 
INIEGfM  PA  0  NAM  .  3A  f  S  I  * 


OCCVAVPc 
OC  ON>C» * 
GO  JVHJj 
UP0M>/*3 
OOQV'jtO  i 
G0G9 >■»  jj 
QOOV> iiJ 
At  JO  jjj 
OvuR>f Ju 
GCteV»|pU 
OOOOSNvw. 
OGuVtpJp 
(NvVklj. 
0CuV»2  jj 
OumV*>Jp 
OQOVmmOj 
0 009»*Pp 
OOuRRtJu 
OOOVcfpp 

OCOV6*Jv 
OwuRAOJ 
uOvV  f w j j 
OOGVUjj 
K/pAUjp 
SM 

UGOWOp 
00u9f*pp 
OOp9T»pp 
SCUM  /  f  2  j 
xotffcj* 
PPp*  Ml). 
>kk«l... 
TvwStUi 
*  jVA... 


|Mk« 


/ 
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ftfMBfft  NAW|  C0N6FN 

IKIICI*  RNlHtS.ATrRIS 
C 

ccccccccccccccccccccccccc:c:cccccccccccccccccccccccccccccccccccccccccccc*>w«*u.» 

C 

C  I  OtwV*T»« 

C  MAHAN 

C  «OOtt  MK  <U»  TO  *  (HAAiCTfRlI  fc»IM(H  AS  OWwVA*).. 

C  iaau  o*  an*  lOfMir Katun  Mil  -  taut  00u««.*w 

C  uwvRviww 

•t ao  is.2s*i  T<mNiii,HRNA<«m 

C  wOwwlwJ 

C  INTIGTR  I  AlRMAWU^f  RIC  I  OOcWVAvv 

C  cot  1*4  HIT  JOSMMCO 

C  ONI  CA«0  M  ***•.#.# 

c  otOAvtw* 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCUCCCCCCCCCCCCCCCCCCCCCCOJOaVA^ 


iawcjagi  lOCtCAi  switch  which  sarcmis  tmi 

HAlHf  HATICAl  MOCRAHWISC  SVSTfM  %  CCHAT  IN 
WHICH  I Ml  OINMATfO  HATRII  Will  *1  HalTIANI 
lANCSw  •  I...OS/U0  fCAWAI 
2...0RIIHA 


RC AO  IS.2S0I  IASCSW 


INTCOIR 
COl  2 
OHC  CARO 


AJwmjJ 
00122202 

IANOSW  0^122122 

22.22**2 
00129*2* 
0)12* *9* 
*21*212* 
22120*2* 
02102 TO* 

MIMiJ 
001*102* 
0*1211** 
22**1222 
00 12 11*2 
02121**2 

CCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCeCCCCCCCCCCCjOlOUw* 

02 10 l TOO 
22121*0* 
20121*2* 

OATSOA  0CI2/VWU 

0*122102 
02*22*2* 
0*i*2*2v 
021*2*2* 
201*2 >*2 
2* 1*2 aw* 
2W122T** 
20122*2* 
001*200* 
091*40*2 
021241** 
221*212* 
0)1044** 
*2124*** 
w 

C  991*l*v* 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCttCC:CfCCCCCCCCCCCCCCCCCCCCCCCCCCCCC9*l*4T** 
C  2*1  ***** 

c  201*4*2* 

:  a  ooio**vw 


c 

c 

m 

«• 

c 

c 

c 

c 

c 

c 

c 


RRlwCIRAl  CATA  SOURCf  IOGaCAI  SwITChi 

oatsoa  •  I. ..aw  suet  Hosri 

2.. .NAN0  AAIAARIO 

1.. .1ASTAIS  HOOK 

*  ..ARRAYS  COfT,«4COM,OTN 
AW  STAWIm  ari  mstorco 
raow  A  IINAR*  Mil 
(1ARII0I  MtOJCIO  ON  A 
ARI VI (Ml  ♦Ca&lH  RUN. 


RIAO  I S.2S0I  OATSOR 


TOR  NOW  CATSOR  RAV  ONI* 
Of  1.2  OR  S 


/ 


Af NBf  ft  U<f 


CONCfN 


f 


• 

• 

•  ASIC  SliUCtjAAl  PA TA 

iIIIOaU. 

• 

• 

33.44 tjj 

• 

• 

ir  PAIA  S3J«Cf  IS  ft  SllCf  *0*^1  OOtfUt.  CAll  SUMOUfIKf 

J«i  1 

• 

ft» 

ftsit  ro  4 1 A3  v<  suet  lifts  ano  :a«os 

• 

3C  lw»>J  j 

If  IPAtlOA.U.  II  CAll  f  SI  N 

0»  Iv.A.  •> 

c 

(#*  i  W  *  f  w 

c 

l»  OAIA  SJM  t  IS  -*At3  PAfflAfO  PAIA,  CAll  SU*»0«Jllt‘  HANOI  N 

» 

A»iO  OAIA 

C 

If  IftitSOA.t J.?l  CAll  Ml NO  1 N 

y  >  1  «#  * 

c 

W«f  1  V  >  A  JP 

0 

If  OAIA  SJIACt  IS  lltift*  0O»f  0*  fPft«N  AAA#  VS*  AtUOAf  |HCS» 

.3  iw  >>.. 

0 

» 

AAR  ATS 

3.1.S*  4. 

c 

If  IPAIS34.Nt.SI  SO  U  IS 

bVlU.Mv 

At  #0  (111  :.Ot  M.NSJM1  ,NIN*  ,N«N* 

0«f  1«S  >  1  Jw 

At  AO  1131  C  M* 

44l.  »A44 

At  AO  1  131  4 jCJCf 

bwlO jVw. 

•  CAO  1131  9 1" 

O.lww... 

•f ao  i  ioi  ;iit»*« 

*  */• 

Af AO  ( IOI  COST 

C«f  1  «l/v  > 

c 

331w4i.. 

c 

cccccccccccccccccccccccccccccccccccccccccccccrcccccccccccccrcccccccccccf 

• 

• 

C 

33.4  a  l«. 

c 

s 

c 

iI3I6a>^ 

It 

•  1  AO  IS. *101  tfff  .HffflAtlt  ,31.  J*|.)l»l*l  *41 

It  INfff  .11  .  31  *.J  It 

03  *30  1  •  I.fj-M 

*4 1. 1 i .. 

*00 

•  tAO  1  S.  **3 1  Il'MI.  jt.J.l.tff  f  1 

0414**4. 

c 

*4 1  «*  1  h** 

t 

MlJNi. 

cccccccccccccccc:ccccccc::ccccccccccccrccccccccccccccccccccccccccccccccr....i>.. 

• 

* 

33(»U.. 

c 

A 

Twl 4*  l». 

c 

NCON 

V*  ||)  f 

• 

• 

(Hf  fVft  Of  HI  ZONSIAAlNt  ON  f  AC •*  :0»»M  t*t I •  tVff 

0 

tCONIII  •  ...Ct»4AT  UNIT  1 T Af  |  .  A 1 0*1  Hf NO 

*W  •  * 

c 

SlOt  WHVff  n*  IIS  CtftSIAAItf 

Jl*  4v#U« 

c 

• .  • .  CC*f  At  '#N|t  ITAf  |  •  »|CHl  H#*K) 

• 

H?t  VflWl  G»  IIS  CC4KAAIM 

Voa ^9 

c 

-...CO*HT  UNI  I  l»ff  1  1  AIGHI  HAND 

0.1. *444 

0 

• 

SlOt  Vfli'f  Of  IIS  CCASIAAIt! 

4J 

0 

f...CC*m  U'll  1  ITAf  1  UN'CNSIAAlNf  0 

J*  0 to ^ 

0 

to 

•  »  1*1*  A**S  VAl  Jf  G»  IIS  CC4S»AA|tl 

c 

331314.. 

AfAJ  1  S.  *4S  1  1  (COtl  II.  1  •I.NCOftOlt 

3.  « .• v.. 

* 

C31.*33. 

t 

INVfOfA 

33*. <13. 

c 

COl  1.11*21.... 

33. .4*.. 

c 

r  1  C*«  *  VAltMS  ff  4  CAA9 

w31«t.1  3. 

• 

0 

NC  0*SI  /  "  CAftPS 

C»l.l4». 

c 

..•.4 A.. 

Af  AO  IS.*»SI  l«t  SCONII  l.l>l.  A) 

4...V ... 

• 

441441.. 
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RENDER  NANE  CONGEN 

MAO  15.1651  ALRTVP  .  .  . 2010Y0G* 

C  0212*9** 

C  02.122** 

:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCwJAlJ10- 

:  2011.2** 

C  7  22.12J** 

:  txrsw  o^tuou. 

;  REQUIR-PENTS  TOLERANCE  LOGICAL  SNITCH.  02*1250. 

:  fOLASN  •  1...LO-TR  ANO/m  UPPER  TOLERANCE  MAY  22*. *6*. 

C  RE  GENERATCO.  SUBROUTINE  TOLRNC  20*1*1*. 

:  IS  CALLEO  CNCF  FROM  TmR  rain  0*11 v»w. 

C  ROUTINE  FCM6EN.  221l*9w* 

C  OTHFRWISE... SUBROUTINE  TCLRNC  IS  NOT  221112** 

:  CALLEO.  0211110. 

J9iu<v; 
091**12* 
0211162* 
201115** 

Miittw. 

20U17C* 


REAO  I 5.250)  TOLRSN 


ONE  CARD 
COL  2 
INTEGER 


0011100. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCC2*11.9v. 

2011.*0* 

0011210* 

0  0211  li*. 

IF  TOLERANCES  nay  BE  SPECIFIED  ITCLRSW  •  II  021 Hi*. 
READ  TOLERANCE  DATA  FROM  LOGICAL  UNIT  S.  02112*0* 

021W>2. 

IF  ItOLRSM.NE.  l.OR.TOLRSW.EO.  l.ANO. CATSOA.TQ.il  GO  TO  TO  22.1. *2. 

0211210* 

NTOLS  *0  .  _  0211202* 

N9TN  •  0  22*1*62. 

0  READ  IS.2T0I  I  NO  l .  IND2.  IOTP,  JOTN.UTOL.L  TOL  02UA20* 

IF  IIN01.E2.0EGT2LI1I .AN0.INO2.EO.BE GtOLC 211  CO  TO  69  0211112. 

IF  I INDl.iS.f NOTOLI 1 1 • AND. IN02.E 0. E NOTOL 1211  CO  TO  72  02a. 12** 

0211100. 

m  to  |  •  I.NCOEF  t01l*6w. 

CALL  FJUNPRII. II.JRI  U2*l#>2. 

IF  I II.NE. IOTN.OR. Jf .Nf . JOIN I  CO  TO  69  00111*0* 

NT0L1  •  NTOLS  •  1  22111T0. 

IF  INTOLS.CT.2ISOI  CO  TO  OS  0211*02* 

ITOLSINTnLS.il  •  IDTN  •  1000  ♦  JOTn  2211*11. 

TCL  SINTOLS.il  •  LTOL  2211*22. 

TnLSINTOLS.il  •  UTJL  22il«l2. 

60  TO  69  0211*20. 

I  IF  INOTN.EO.il  GO  T9  60  221161*. 

NOTH  •  1  22*1*62* 

MBIT!  16.6121  0211«>2. 

C2  TO  60  2*11*60. 

0  CONTINUE  2211*1*. 

2211*02. 

IF  TOLERANCE  NAS  SFICIFIEO  FOR  A  NON-E  * ISTf NT  COEFF 1C  If NT  ,  0*11*6* 

■RITE  A  0I42N9STIC  MESSAGE  ON  UNIT  6  .  IGNORE  ThE  TOLERANCE  .  **!*»**. 

AND  FROCCCO  2**1  SI*. 

*011 >2*. 

MR.TE  I6.7TSI  J9TN.I0TR  02US1*. 

CO  T9  62  2*11 >*2. 

0*lt>>2. 


KT  60  I  •  I.NCOEF 
WALL  FJUNPRII, II.JRI 
IF  (II.NE. IOTN.OR. Jf.NE.JOTNI  CO 

NTOLS  •  NTOLS  *  I 
IF  INIOLS.CT.21S2I  CO  TO  69 
ITOLSINTOLS.il  •  IOTN  •  1099  •  JOIN 
TCLSINTOLS.il  •  LTOL 
inLSINTOLS.il  •  UT2L 


CO  TO  69 


TCLSINTOLS.il  •  LTOL 
IOLSI NTOLS* II  •  UT2L 
CO  TO  69 

IF  IN0T6.EQ.il  CO  T9  60 

NOT N  •  1 

WRITE  16.6191 

CD  TO  60 

CONTINUE 

IF  TOLERANCE  NAS  SFICIFIEO  FOR  A  NON-E  * ISTf NT  COEFF |C If NT  , 
WRITE  A  0I42N9STIC  MfSSACf  ON  UNIT  6  .  IGNORE  ThE  TOLERANCE  » 
AND  FROCCCO 

WR.TE  16. MSI  J9TN.I0TN 
CO  T9  69 
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HEAD  15,2531  SIIBSH 


ME HOES  NAME  CONGEN 

TO  CONTINUE  0011 >603 

C  Oiil»TjJ 

C  Jj  1 1  3bt)j 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCjCiixiNJv 
C  JJlldtf JJ 

C  9  00x46103 

C  SUBSM  JGix62ov 

:  SUPPORT  UNIT  SUBSTITUTION  LOGICAL  SWITCH  OGiloJOv, 

:  SJttSW  •  1... SUPPORT  UNIT  SUBSTITUTIONS  OOHuvOj 

C  SPFCIEICO  BELOW  WILL  BE  REPRESENTED  OOxloSJO 

C  OTMERWI  SC.  .  .NO  PERMISSIBLE  SUBSTITUTIONS  UGllotOw 

C  WILL  BE  REPRESENTED  OJiioTJ^ 

C  JGx  lvtOJ 

HEAD  15,2501  SUBSW  OUiiuVJJ 

C  0011 700w 

C  001x713., 

CCCrCCCCCCCCCCCCCCCCCCCCCCCCCCCCeCCCCCCCCCCCCCCCCCCeCCCCCCCCCCCCCCCCCCCCOGllTiOw 
:  joiiTijj 

C  0011  763., 

C  10  00U/50W 

C  IF  SUPPORT  UNIT  SUBSTITUTIONS  MAY  BE  REPRESENTED  AT  ALL  0011760., 

C  I SUBSW  ■  II  RE AO  SUBSTITUTION  DATA  FROM  LOGICAL  5  AND  COUNT  Jull/ljw 

C  THE  NUMBER  OF  PERMISSIBLE  TYPES  OF  SUBSTITUTIONS  SPECIFIED  301x7*30 

C  0011790a 

IF  ISUBSW.NE.il  GO  TO  110  OOxldOOa 

C  OUxxdlOO 

NSURS  ■  0  0011 *200 

C  OOllblJj 

1  AO  READ  (5.2701  I N31 . IN02, I OTW, JDTN, ENTRY  GaxiwVa.. 

IF  tlNOl.f  J.BEGSUIM1I.ANO.IND2.EO.BEGSUBI2II  GO  TO  160  001U50., 

IF  (  INDl.fcG.ENOSUdl  1 1  .AND.IN02.EO.ENDSUBI2II  CO  TO  110  OGxld6ao 

C  OOixdTaa 

NUNIT  •  NCONBT  *  NS'JPRT  JOxxdUJ) 

IOTNI  ■  0  OOlidJUJ 

01  150  I  •  1, NUNIT  0011900a 

IF  I  IOTH.NE.OTMI  HI  GO  TO  150  00xx«laa 

IOTNI  ■  1  00119 dua 

GO  TO  160  OOilVJOa 

150  CONTINUE  00119630 

JOTNI  •  0  30U9>3a 

160  03  170  I  •  I, NUNIT  0011960a 

IF  I  JOTN.NF.OTNI  III  GO  TO  170  0axx970a 

JOTNI  •  1  0011V dOO 

63  TO  IRO  3011 V93a 

1  TO  CONTINUE  OOWJOJa 

C  .  On  123 10^ 

160  IF  I IDTMl.tU.O.OR. J0TMI.EU.0I  GO  TO  160  00ida20a 

NSU03  •  NSUAS  •  I  OJxxaJOa 

KJSlHINSUBS.il  •  IOTM  00 x206wa 

KJSU.MNSUBS./I  •  JOT M  0012G>aa 

SUBINSUBSI  •  ENTRY  JOldGoOa 

GO  TO  160  OJWoTwa 

C  wulJORaO 

110  CONTINUE  OOldwVaa 

C  uulilvOO 

C  004X1  low 

:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCCCC:CCtCCCCCCCCCCCCCCCCCCCCCCCCu^Ui*ww 

c  oomiwj 


IF  SUPPORT  UNIT  SUBSTITUTIONS  NAY  BE  BFPRESENTEO  AT  ALL 
I  SUBS J  ■  II  RE AO  SUBSTITUTION  DATt  FROM  LOGICAL  5  AND  COUNT 
THE  NUMBER  OF  PERMISSIBLE  TYPES  OF  SUBSTITUTIONS  SPECIFIEO 

IF  ISUBSW.NE.1I  GO  TO  110 

NSUBS  ■  0 

BEAD  (5.2T0I  IN91.IND2. IOTM, JOIN, ENTBV 

IF  I  INOl.f 'J.BEGSUDI  1 1  .AND.  IND2.EU.BEGSUBI  2 II  GO  TO  160 

IF  ( INDl.fcG.ENOSUdl 1 1 .ANO.IN02.EO.ENOSUBI2II  CO  TO  110 


NSUPBT 


GO  TO  150 


GO  TO  170 


NUNIT  •  NCOMBT  ♦  NS*. 
IOTNI  -  0 

01  150  I  •  1, NUNIT 
IF  t IOTN.NE.OTMI III 
IOTNI  •  1 
GO  TO  160 
CONTINUE 
JOTNI  •  0 

03  170  I  •  I. NUNIT 
IF  I  JOTN.NF.OTNI  III 
JOTNI  •  1 
G3  TO  IRO 
CONTINUE 


IF  I  IOIMI.EU.O.OR. JOTNI. EU.OI 
NSU03  •  NSUAS  •  I 
KJSlHINSUBS.il  •  IOTN 
KJSU.MNSUAS./I  •  JOIN 
SUBINSUBSI  •  ENTRY 
GO  TO  160 

CONTINUE 


GO  TO  160 


<|i*6h 


NEHBFR  NAME  CONGEN 


11 


UNIXSW 


13121600 
03121500 
J0l2l60j 
00121733 
bu 121800 

00i2i  103 

OwifciO JJ 
UU122103 


UNIT  NIX  LOGICAL  SWITCH. 

UNIXSW  *  1...UNIT  NIXES  WITH  OR  WITHOUT 

TOLERANCES  M4V  BE  REPRESENTED 
IN  THIS  MOOEL.  INPUT  DATA  CAROS 
SPECIFYING  NIXES  WILL  Pc  READ 
NEXT.  SUBROUTINE  UNINIX  WILL  BE 
CALLED  ONCE  EROH  THF  WAIN  ROUTINE  03122200 
FOMGEN  TO  GENERATE  MATRIX  iiiiijjj 

STRUCTURE  REPRESENTING  USER  00i 22633 

SPECIFIED  NIXES.  00122533 

OTHERWISE. ..Nil  NIXES  WILL  HE  REPRESENT- JO it 2a03 

ED.  NU  UNIT  NIX  DATA  CARDS  03122700 
WILL  BE  READ  (AND  THUS  00122000 
SHOULD  NOT  HE  INCLUDED  IN  0uit2900 
THE  INPUT  DATA).  SUBROU¬ 
TINE  UNINIX  WILL  NOT  BE 
CALLED. 


READ  15.2501 


UNIXSW 

INTEGER 
ONE  CARD 
COl  2 


00121003 
00121100 
0012 J2Gj 
J012J30J 
00121603 
OOlt j50J 
00121630 
0012 J70w 


12 


C 

c 
c 

c 
c 
c 
c 

:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCfCCCCCCCCCCCOwi2j«Oj 
:  00121900 

C  00126003 

00126103 

IF  UNIT  nix  CONSTRAINTS  MAY  BE  REPRESENT  EC  IUNIXSW  «  1I0312-.203 
COUNT  THF  NIIMBFR  OF  NIXES  SPECIFIED  AND  READ  ALL  DATA  00126100 
— OTM  NUMBER, MIX  ENTRY, UPPER  TOLERANCE , LOWER  TOLERANCE  00126603 

FOR  EACH  ENTRY  OF  EACH  NIX— INTO  CENTRAL  MEMORY.  J012650o 

0012460o 

GO  TO  30  0012,703 

10124003 
0012,903 

. . ...  00125033 

00125203 

GO  TO  3C  00125100 

GO  TO  45  00125633 

GO  TO  50  00125503 

0012>30U 
00125703 

00125900 

■  0.9  00126003 

■0.9  OJitolJj 

•  0.0  00123203 

00126300 

♦  1  00126400 

■  NOTN  30126503 

ENTRY  0012o633 

UTOL  lOlta/Oo 

LTOL  OO12>0O3 

33 1 1  6933 

C  00127033 

CCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0>12  7103 


40 

c 


45 


50 


IF  IUNIxSW.NE.il 
NMIXES  •  0 
INOEX  ■  0 

READ  (5,2601  IN01.IN02, NOTN, ENTRY, UTOL, LTOL 

IF  I IN01.EQ.LS1NXIII .AND.IND2.F0.LSTNXI2I I 
IF  ( IN01.E3.EN0MXI 1 1 .AND. IND2.E0.CN0NX 1 2 ) I 
IF  I  IN01.NE.BEr.MXIll.OR.  IND2.NE.6FGMXI2II 
NMIXES  •  NNIIES  ♦  1 
GO  TO  49 

INOEX  •  INOEX  «  1 
INIXESI INOEXI  •  0 
NIXES! INDEX, II 
NIXESI INOEX, 21 
NIXESI INDEX, II 
GO  TO  40 
INDEX  ■  INDEX 
INIXESI INOEXI  • 

MIXES! INOEX,  1 1 
MIXES! INDEX, 21 
MIXES' INOEX, II 
G3  ID  60 


<£5ar> 
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MEMBER  NAME  CONGEN 

C 

C 

C  13 


C 

C 

C 

C 

c 


GRPSW 

UNIT  GROUP  CONSTRAINT  LOGICAL  SWITCH 

GRPSW  »  1...0NE  UNIT  GROUP  CONSTRAINT  MAY  BF 

•REPRESENTED.  AN  ATTEMPT  TC  RFAO  CATA 
SPECIFYING  THIS  CONSTRAINT  WILL  BE 
MADE  BEI.UW 

OTHFRWI SF...NO  UNIT  GROUP  CONSTRAINT 

WILL  BE  REPRESENTED.  NO  DATA 
WILL  OE  READ  BELOW. 


30  READ  ( 5. 250)  GRPSW 
C 
C 
C 


INTEGER 
COL  2 
ONE  CARO 


0012720- 

0012730- 

00127*0- 
0012  7s-0 
Jj  1276— 
00X277— 
— 12  7d j- 
Uul<  7  «J>/ 
001. d—j 
OG  12dt  — 
OJi2d.OJ 
J J  12di J- 
0012d*.jj 
0Gl2d JOu 
031266— 
00126700 
00  1266JJ 
00X26  O0 


C  301.9-j- 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCr.CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0-12*10- 


14 


IF  A  UNIT  GROUP  CONSTRAINT  IS  TO  BE 
READ  DATA  SPECIFYING  THIS  CONSTRAINT 


REPRESENTED  AT  ALL  . 


IF  IGRPSW.NE.l. AND. GRPSW. NE. 21  GO  TO  120 


00*292- j 
001293 Oj 
00129**  JJ 
OOX295J- 
301296— 
001297DJ 
00 12 V6J J 


C 


Oj129Vjj 


110 

C 

100 


C 

c 


03  110  I  •  1,600 
GROUP  I  II  *0.0 
I  GROUP  I  1.1 1  «  0 
I  GROUP I  1,2)  -  0 

INOEX  •  0 

READ  15,  2801  I N01 , IN02 , NOTM.ENTRY,  ID  AT 

IF  I INDl.tJ.ENOGRPI 1 1 . AND.  IN02.E O.ENOGRP I  2 1 1  GO  TO  120 

IF  I IN01 • EU .BEGGKPI 1 ) .AND.  IND2.E Q.BEGGRPI 2 1 1  GO  TO  130 

INOEX  «  INDEX  ♦  1 

GROUP  I  INDEX!  .  ENTRY 

IGKOUPI  INDEX, 1  I  •  NOTH 

I GROUP  I  INDEX, 2)  •  IOAT 

G3  TO  100 


30.3033- 
OOUOIOJ 
0G13-.3- 
301 j 0  — J 
00 1  Jo* Jo 
001306 j j 

O0I.J6J- 
001.073- 
00  X  326  — 
301 —  9 Jj 
03 1 3 10 3- 
OJlillJ- 
00.3*. J- 
OOllUJJ 
00X314-0 
Jj.it  3— 


cccccccccccccrccccccccccccccccccccccccccccccccccccccccccccccccccccccccccjonioo- 


c  0JIJ1/-J 

c  ooimo- 

c  15  001319— 

c  AGGRSW  0013203-. 

C  UNIT  AGGREGATION  LOGICAL  SWITCH  0-..21  — 

;  AGGRSW  -  l...ROWS/fOUAHONS  IN  THE  NCCEL  WHICH  30 X 32. -J 

C  REPRESENT  AGGREGATION  A  NO  POSSIBLE  30 1.2 >JJ 

;  CONSTRAINT  OF  SOME  CHIP  ACT  ER  ISHCE  0-132*.— 


VW'YW  I  Y«  WV  'I  V'«»  r,  -  V  ■  V  ■  I  V  W  J  ■  J  *  * 

C  SUCH  AS  PERSONNEL  SIAENGTM  OF  GrOIPS  33.326  — 

C  OF  UNITS  NAY  OE  C.ENERATEC.  SUBROJT  INEOO X 326— 

C  ACGAGT  WILL  BF  CALLED  AND  *  5  JAT  IONS 

C  SPECIFIED  BY  INRUI  OtTA  RFAO  AT  THAT  JJ...8J- 

C  TIME  WILL  St  GENERATED.  00X329— 
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<S35j- 


MEMBER  NAME  CONGEN 


C 

120 


OTHERWISE. ..NO  UNIT 
WILL  BE 


AGGREGATION 

GENERATED. 


ROW  VECT0RS0013J3kJ 
SUBROUTINE  30133133 


REAO  15, 2501  AGGRSW 


AGGRGT  WILL  NOT  BE  CALLED. 


>10 

320 


3  AO 


NAGGH  »  0 

IE  (AGGRSW.NE.il  GO  TO  309 
INDEX  •  0 

REAO  15,3201  INOl, IN02,  IN03,fND4,lND5, IND6 
FORMAT! 2A4,12X,A2,ax,  I 3, ?X,A1,|X,A1I 
IE  I  IND1 .E3.EN9AGK ( 1 1  .AND.  IN02.EU.ENDAGRI 211 
IF  I IND1. E j.AE GAGRI 1 ). AND.  IN02.E0.BE GAGRI 21 1 


GU 

GO 


TO 

TO 


330 

340 


INDEX  •  INDEX 
AGGRGT (  INOEXI 
CD  TO  310 
NAGGR  -  NAGGH 
IXOEX  ■  INDEX 
AGGRGT!  INDEX) 
AGLABI NAGGR)  • 
INDEX  ■  INDEX 


♦  1 

■  1N04 

♦  1 
♦  1 

>  IN03 
I ND  3 
♦  1 


9k13 32kJ 
00133300 
99133403 
03143599 
90133633 
9313373k 
001546 kk 
ooiijyou 
3014409k 
93i34ikk 
0014420k 
00134303 
33194439 
33134900 
0013460k 
0314470k 
00134300 
0 0134900 
3313903k 
00 13501k 
03135100 
3013:203 
09139300 
00135433 

:ccccccccccccccc:ccccc:cccccccccccccccceccc:cccccccccccccccccccccccccccco3i355oj 

001)9693 
0013970k 
30133B3J 
9014$Vkk 
00 13u009 
30136133 
9314»2kK 
00136300 
3313640k 
30136333 
0013*603 
031367Gk 
0313*633 
3313*993 
9013703k 
3313713k 
00137293 
33137393 
3013743k 
0014790k 
03137633 
00137733 
09137*Ow 
9313793k 
9013633k 

ccccccccccccccccccccccccc:c:ccccccccccccccccccccccccccccccccccccccccccc991361k9 

0013329k 

9w1363Kk 

OUMR  CERTAIN  RROGRAM  VARIABLES  AND  ARRAYS  FOR  ROSSIOLE  RESTORE  3k*>A—k 
IN  A  LATER  RUN.  THEY  ARE  WRITTEN  AS  A  BINARY  F  IcE  -  TAPE10.  3013690k 

0913A*9k 


330 


.  C 

c 

c 

300 


350 

390 


360 

400 


370 

410 


•0 


CALL  INK  IND5,  AGGRGT  I  INOEXI  I 
CALL  IN2(IN06,AGGRGTIIN0EXI) 
GO  T9  310 
INOEX  -  INDEX  ♦  1 
AGGRGT! INOEXI  -  0 


1* 

REAO  1  5.2851  C SSW.CL SW, SRSSW, SRLSW,  SFSSW,  SFLSW 
IF  (CSSW  .GE.ll  REAO  15,2301  (CSTYR  (II.CSPFR 
IF  ICLSW  .GE.ll  REAO  <5,2301  ICLTYP  III  .CLPER 
IF  (SRSSW. LE.O  I  GO  TO  390 

REAO  (5,2301  I TOVTYP! 1 1 ,  SRSRERII) ,1  ■ l.NSUPRT ) 

03  350  I  ■  l.NSUPRT  _ 

CALL  INKTOVTYPIII.SOVTYPIIIl 
IF  (SRLSW. LE.O!  GO  TO  400 

REAO  (5,2301  I TOVTYP! I  I , SR L PER (I  I,  I  “l.NSUPRT  I 

0)  360  I  •  l.NSUPRT 

CALL  IN2(T0VTYP(||, SOVTYP! 1 1 ) 

IF  ISFSSW.LE.OI  GO  TO  410 

REAO  (5,2391  I TOVTYP 1 1  I  .SFSPERII I, I* l.NSUPRT ) 

03  370  I  •  l.NSUPRT 

CALL  IN3I TOVTVPI I l.SOVTVPC |) | 

IF  ISFLSW.LE.OI  GO  TO  420 

REAO  15,2301  I TOvT VP! I  I ,  SFLPERII I,  I  ■ l.NSUPRT I 

00  380  I  •  l.NSUPRT 

CALL  IN4! TOVTYP! II, SOVTYP! !)| 


(I), 1*1, NCOMBI I 
III , 1*1 , NCCMBT I 
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MENDER  NAME  CONGEN 


420 

WRITE  1101  NCOMRT .NSUPRT «NAN7, NBNZ 

00 136  70 j 

WRITE  1101  COEF 

00136600 

WRITE  1101  K  JC  H;:F 

001 j8vuu 

WRITE  1 101  OTM 

0bl3V0o 0 

WRITE  1 101  STRNTH 

00139100 

WRITE  ( 101  COST 

001 J920u 

c 

031395)./ 

z 

J0U940j 

:CCCCCCCCCCCCCr.CCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCeCCCCCCCCCCCCCCCCCCCCCCCC0G*)9i), 

1* 

0013VOJJ 

C 

INITIAL  ICE  ROW  VECTOR  NAME  AND  TVRE  STORAGE  ARRAYS 

00159  7)./ 

c 

RNAMESI 130),  21  AN')  RTYPESI100)! 

OOUNdJO 

c 

0013990b 

0)  10  1  ■  1,3000 

Oul*)wbO 

RNAMESI 1,11  -  ) 

00140100 

RNAMESI 1,21  -  0 

001402u0 

10 

RTYPESI II  -  0 

001403)./ 

* 

00*40*0, 

z 

001*0500 

RETURN 

0014  JO  Jo 

m 

0014 u 7 J J 

210 

FORMAT (  I3,7X,6IA4,A3,1X,A1,1X)I 

00l40o0G 

220 

FORMAT  I3X,7X,6(£10.6)I 

bOl*0V0) 

2  30 

FORMAT  1  10IA1.E7.5I) 

0)141ujj 

2  50 

FORMAT  1 121 

OOUUi/j 

2  55 

FORMAT! A4.A2I 

00*412./) 

260 

FORMAT!  A4.A4.2X, 1 3,5X,E12.6,5X,Et2.6,SX,E12.6» 

00*413),. 

265 

FORMAT  (61*1,9X11 

0k/14l4U„ 

270 

FORMAT!  Am,  A 4,  IX.I3.2X, 1 3, 2«, 12 X, 5X,| 12. 6, 5X,  E  1 2 .61 

001*150) 

275 

F)PM»T|  HO,  71M66666  TOLERANCE  WAS  INPUT  FDR  THE  COEFFICIENT 

OF  ALL)ul*16)o 

.U.2M  . 
WILL  BE 


/1M  ,7X,63MTMIS 
IGNORED.) 


280 
285 
4  50 


•□CATION  0*  OTM  NU.  ,I3,13H  PER  OTM  HO. 

•  FFiritm  was  nut  input.  the  tolerance 

FORMAT! A4,A4,12<, 13. 10X, £12.6, 10X,  131 
FORMAT! 112) 

FORMAT!  1M0.82H*****  TOLERANCE  MAS  INPUT  FOR  MORE  THAR  2350  COEFFIC0014210* 
•IENTS.  THE  EXCESS  MAS  IGNORED.  I  0014220./ 

00*423)5 

END  _ * _ ' _ 00142*.  ^ 


COCJOii * lu, 

OulMidjj 

OOUIS^j 

0014200) 


WMurisE  AS  In 


CONGEN 


*  JUNE  T2 


8SIN  IS  A  FORTRAN  IV  SUBAOUTINF  THAT  IS  CALIEO  ONCE  FRCM 
C  SUiRO'JT  INE  INIT  IF  THE  DATA  SOURCE  IS  A  BN  SLICF  MODEL  RUN 

C  I  INPUT  OATA  VARIABLE  OATSOR  •  II  TO  READ  OATA  FROM  BN  SLICE 

C  OUTPUT  TARES  AND  SOLUTION  CARO  DECK. 

:  8SIN  CALLS  SUBROUTINE  ASSORT  CNCE  BEFORE  RETURN  TO  INIT  TO 

:  SORT  THE  ALLOCATION  COEFFICIENT  ARRAYS  INTO  AN  ORDER  THAT 

C  MINIM  I  S  SEARCHING  DJRING  F  CMf.FN  EXECUTION. 

C 
C 

cccccccccccccccc:ccccc:cc:c:::cccccccccccccccccccccccccccccccccccccccccc 


COMMON  /PESOLU/NCO''MT.NS'JRRT,NPRA»iNRAAMU 
CUMM.JN  /DCSCRR/STRNim  76)1  ,OTM!  76)1. COSH  76) I 
CUMMJN  /Rt  JF AC  I'  JEFI SCO )  I  • H JCOFF I RCCOI .NANI.NBNt 
COMMON  /NEJIOL/IOLRSMf T JLSI23S),  31 , NTDl S, ALHT YP 


33TT2T7j~ 

Oul4 iuj* 
00*92  7) w 
0014260J 
00*4 

0) 14  3wJ J 
001*3*00 
00i4 Sid j 
001433), 
0)l4 3*0, 
(liiii’jOj 
00 1 4  *6 J, 
0014) 70b 
JJl.iB), 
Oul*iVj, 
00l4*0vw 
0)14 1.JJ 
0)*  »*2«/J 

Ok.  I  *4  )«/, 
Ow 1*4*0 J 
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MEMBFR  NAME  CONGEN 

COMMON  /TITLE/ ITITLEfTI. ( SRC ( 3 )  •  I  TP  SN( 2 1 
C 

01  HENS  ION  TCflEFUOl.lTCOEHfcOJ 
EQUIVALENCE  I TCOEF (11 , 1 TCOFF III » 


DIMENSION 

DIMENSION 


PR AH  I D I 1SI 
ISEH  472I 


DIMENSION  COST  INI  1  32  I .  &  vr/.  STI 321  .AVGSTA  |&|  .IPTSTAI  32,21 
EQUIVALENCE  INCST  t  T'JLSI  1 «  1 1 ) 

EQUIVALENCE  (NPTSTA,  T.LS(2,m 
EQUIVALENCE  I  IPTSTAIl. 1  I.TULSO.ll) 

EQUIVALENCE  (CIST  IN. TULSt  323*111 
EQUIVALENCE  (AV3CST, TOLSI.iS.lll 
EQUIVALENCE  (AVCStA, TULSI467.il} 


INTEGER 

INTEGER 


DTH 

PRAHIO 


0014**0.. 
0014*60* 
Ou 1**10* 
001*sd0* 
0014* VO* 
0014300k. 
0014310* 
0014320* 
OO 143 JO* 
0014340* 
0014330* 
00 1*300* 
0014370* 
0014360* 
00143V0* 
0014 600* 
00*4*10* 
00 14*2** 
0*146 JJ* 
00l4o40* 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCC CCCCCCC C CCCCCCC CCCCCCC *01 4o 30* 


c 

c 

ccccccc 

ccccccc 

c 


The  FOLLOWING  DATA  IS  READ  FRCN  THE 
6INARV  UNIT  40  PAUOUCEO  BY  APROG. 


BN  SLICE  A-TAPE  — 


REWIND  8 


ShTIP  ONE  LOGICAL  RECORO  —  ULPHIII  ,1-1,201 


REAO  (81 


SKIP  ONE  LOGICAL  RECORO  —  IAL.PHI  11.1*1  .201 .  NCDNS  . LCCNS 


REAO  (81 

RFAO  THE 
ANO  STORE 


NUMBER  OF  CO HR AT  HOOULFS  MODELED  IN  THIS  BN  SLICE  PUN 
IT  IN  FOHGEN  COMMON  VARIABLE  NCOMBT  ( NCCP8T  •  401. 


10 

C 

c 


0014360* 
0014*70* 
0014*80* 
0014*00* 
0014100* 
00.47 10* 
0014711* 
00U712* 
Ooi47i J* 
0014714. 
0014713. 
0014716* 
0014717* 
0014718* 
0014720* 
00.47 jj* 
0014740* 
0014730* 
0*147*0* 
0014741* 
0014742* 
001*7*3* 
001*764* 
0*14770* 

THE  NCOMBT  COMBAT  MODULES  ANO  STORE  00147A0* 
WORDS  OF  COMMON  INTEGER  APR  AY  OTMI 10051001*730* 

001*300. 
0014*1** 
001**20. 
0014*30. 
0*1*1 4*  * 
0*14*3 0* 
001*1*0. 
00l*t  7** 

REAO  THE  OTM  N'JMBES  (IF  ANY  PA*/ *  t  If  R I  7f  0  I// ITS  IN  IHIS  BN  SI  ICE  **1*3*0. 
RUN  ANO  CALCULATE  THIS  NUMBfP.  THf  NilHB FA  (•  141  OF  PAA1"CT£P-  6614**3. 
17(0  UNITS  IS  STORED  IN  LDCAL  IS  IF  Gf  R  VARIABLE  NPKAM.  ThEIR  DTM  0*.****. 


REAO  181  NC0H3T 

SKIP  ONE  LOGICAL  RECOPO  —  NOPGI 1 1 .NORGIl  7  I . 1 NOPCII » . I* 2. 161 


P  E  AO  181 

READ  THE  DTM 
THEM  IN  THE  FI 


NUMBERS  DF 
AST  NtOMBT 


00  to  I  •  I.NCD-BT 

REAO  IRI  I  ITCOrri JI.J.1,231 

ITC0EFI2I  •  1 1C Of  F I  2 1  ♦  4C0 

OTM( ||  •  ITCDEFI2I 

WRITE  12.1631  I ITCOEFI j I . J  *2 . 8 1 

CONTINUE 


218 


RENDER  NINE  CONGEN 

C  NUMBERS  ARE  STORED  INITIALLY  IN  WORDS  NCOHBTH  TO  NC()MBT»NPRAM 

C  OF  ARRAY  OTM.  NOTE  THAT  FOMGEN  ULTIMATELY  TREATS  THESE  AS  ANY 

J  OTHER  SUPPORT  UNIT. 


C 

REAO  (SI  PRAN1 0* I  SET 
NPRAM  ■  0 
DO  20  I  -  lt  IS 

IF  (PRA.MIOI  ll.EO.OI  GU  TO  30 
NPRAM  «  NPRAM  ♦  1 
20  CONTINUE 

c 

30  IF  INPRAM. LE. 01  GO  TO  32 

NPRAMU  *  l 

IF  INPRAM.EO.il  GO  TO  32 
00  34  I  «  2. NPRAM 
00  36  J  «  2,1 

IF  tPRAMIPIII.EO.PRAMIOIJ-lll 
36  CONTINUE 

NPRAMU  •  NPRAMU  ♦  1 


U01492pp 
OOUVJUU 
t)t)l*V4Up 
OOInSSJp 
OOImVoup 
00i47 1* j 
JpI-SopU 
0014VVOO 
OpIJJppp 
JJopUj 
OP  ISO 107 
901>0 JJp 

pOOPMJj 
UUlPlOUU 
COlJpbPw 

GO  TO  34  001 »p7J- 

OOlSORww 

OOISOSpp 


34 

C 

C 


c 

32 

C 


c 

* 

c 

c 

40 

42 


C 


c 

c 

c 

4t 


CONTINUE 

REAO  THE  NUMBER  OF  SUPPORT  UNITS  MODELED  IN  THIS  eN  SLICE 
RUN  AND  STORE  IT  IN  COMMON  INTEGER  VARIABLE  NSUPRT. 

I  THIS  COUNT  INCLUDES  NPRAMU  PARAMETERIZED  UNITS.  I 


READ  ISI  NSUPRT 

SRIP  ONE  LOGICAL  RECDRO  —  II CODE (II , I - 1 , 10001 
READ  181  I  I.  J  *1. 10091 

SKIP  ONE  LOGICAL  RECORD  —  I JCOOEII 1,1-1,6001 

READ  ISI  I  I.J-I.600I 

REAO  ISI  I ITCOEFI  II, 1*1. SI 
IF  I  ITC0CFI2I.GT.9VPI  GO  TO  4B 
REAO  III  I  ITCDEFI  |  I, 1-1,111 
IF  I  ITCOEFI 1I.E3.N)  GO  TO  40 
GO  TO  42 

REAO  REQUIREMENTS  FOR  SUPPORT  WAITS  PER  COMBAT  MOCUlfS.  STORE 
NON-/ EMU  ALL 1CA T ION  COEFFICIENTS  IN  COMMON  REAL  ARRAY 
STAATING  AT  WORO  1.  CCPMON  INTEGE R  VARIABLE  NAN2  IS 
OF  THE  NUM3EH  OF  THESE  COEFFICIENTS  I A-H4TRI K  CUFF EICIENTS  I 
STORED. 

NANI  •  0 
IK  •  0 

OJ  JO  I  •  l, NSUPRT 

REAO  ISI  I  ITCOEFI JI.J-I, ISI 

IK  •  |l  ♦  1 

OTMI  KpnCOMSTI  -  ITCOEFI  || 

WRITE  12,1641  I  I TCOE F( J I ,J-1 , ISI 
IF  I  ITCOEFI 21. F  2.01  GO  TO  SO 
REAO  III  ITCUEFI JI.J-l.NCUMNTI 
03  40  J  •  I.NCTMBT 
IF  ITCOEFI JI.Lf. 0.91  GO  TO  60 


U0i>  107p 
001)1 luw 
301)127. 

UOi>l »JJ 

001)1407 
061*1  *77 
001>i67i t 
OOiJlvlJ 

001)loiv 

001>1p)P 
OODlblP 
701)l6>. 
071)l»bp 
301516/7 
OODloAu 
OpDITpp 
07.51 App 
OOlilVJp 
V7D2777 
Jp15<17p 
301522PU 
G71)27pp 
33a >2-p. 
COEF 160001301)2)33 
A  COUNT  3wl*2b3p 
33.)2/3p 
3315267. 
001)2 vpp 
Op1)A vpp 
3015313p 
30i)A23p 
301)I3pp 
33I5>-p3 
0U1)I5vp 
JODIopp 
ipill Ipp 
JOi) AAwp 
Pvl>iVp« 

331>«ppp 
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•(EMBER  NAME  CONGEN 

NANZ  -  NANZ  *1  _  .  _  ... 

IF  INANZ.GT.6503I  GO  TO  BOO 
C3EFINANZI  ■  TCOEFIJI 

KJCOFF ( M ANZ I  •  OTNIJI  •  100)  ♦  0  TNI  I X.NCOHBT  I 
SO  CONTINUE 
SO  CONTINUE 
C 

C  READ  REQUIREMENTS  FOR  PARAMfTFRI ZEO  UNITS  PER  CONCAT  NODULES. 

C  NON-ZERO  ALLOCATION  RULE  COEFFICIENTS  ARE  STOREO  IN  ARRAY 

C  COLFI6003I.  THESE  COEFFICIENTS  ARE  TREATED  AS  FART  OF  THE 

C  /-MATRIX.  TMt  NUMB  FA  OF  NON-ZERO  COEFFICIENTS  STORED  HERE 

C  IS  INCLUDED  IN  The  COUNT  STUREO  IN  VARIABLE  NANZ. 

C  ... 

read  isi 

00  90  1  •  1,12 

READ  I B I  (TCOEFIJI .j.l.NCOHST) 

00  100  J  •  l* NCONST 
IF  ITCOEFIJI.LE.O.OI  GO  TO  ICO 
NANZ  •  NANZ  ♦  1 
IF  INANZ.GT.BOOO)  GO  TO  BOO 
COEFINANZI  ■  TCOEFI  || 

KJCOEFINANZI  •  OTMIJI  •  1303  ♦  PRAM|  Dill 
100  CONTINUE 
BO  CONTINUE 

C  . 

101  RE  AO  IB.ENPMOZI  IOUNMV 

GO  TO  101 

102  CONTINUE 

* 

CCCCCCC  the  FOLLOWING  DATA  IS  READ  FROM  THE  BN  SLICE  B-TAFE 
CCCCCCC  PRODUCE)  IN  BINARY  BY  BN  SLICE  MODEL  SRFCIALLV  FOR  CONGEN  — 
CCCCCCC  UNIT  ZS  PRODUCED  BY  BRROG. 

C 

C  REMIND  B 

C  PAUSE  001 

C  REMIND  • 

C 

C  READ  REQUIREMENTS  FOR  SUPPORT  UNITS  IANO  PARAMETER  I f COUNITS I 

C  PER  SUPPORT  UNITS  UN)  PARAMETER!  ZEO  IINITSI.  THESE  NCN-ZERO 

C  ALLOCATION  RULE  CDfEEICIENTS  ARE  STORED  IN  ARRAY  CCFPU330I 

C  STARTING  MlTH  WORD  NANI  «  1.  VARIABLE  NANZ  IS  A  COUNT  OE  THE 

C  NON-ZERO  COE FEICIENTS  STORED  HERE. 

C  .... 

C 

NBNf  •  0 

(10  RE  AO  IB.END.1A3I  l|TCOfF|||.|.liST.  ?COE*U  I 
t  1)0  RE 40  IB)  IITCOIFI  11,1.1, SI. TCOEEUI 
C  IE  UOE.BIIAO.BBB 

BBB  IE  ITCOEFUl.Li.O.OI  GO  TO  1)0 

NRNt  *  NINZ  *  1 

IE  INANI  •  NSNI  .GT.  BOCOI  CO  TO  BZO 
COCE  INPNZ.NANM  •  TCOEFI  Al 

RJCOCPINBNZ  »NANf  I  *  ITCOEFISI  •  1030  •  ITCOEE|)| 

60  TO  1)0 


OOliAluO 
OOiaAZOu 
OUlStJJj 
031T.A0J 
OOlSAWO 
OOISA 63j 
JOiSAZJJ 
UUOA60U 
3J1SA9JJ 
j31>>33j 
OOISMOj 
331>S2dJ 
3Gl»>)33 
G015SA03 

JUi JJfcJj 

001>>Z30 

301 

33lS>V3v 

OUl>»JOv 

OOllAlwj 

03lSa«0«* 

031>*)0G 

<iJ  lAalvv 

331»b*3J 
001 >«*0o 
031S*ZGJ 
301>*B3v 
00  IS* BO J 
331)1033 
33«>EUj 
33 1) Z 1  lw 
0315E20J 
33i)ZJ3« 
3w15ZaG. 
001)7)00 
001)1*33 
)3i)Z?3<* 
OOiWAu, 
3wl)ZB*J 

3w.)AJJrf 
OWl>«tOv 
03 1 >«23v 
33**9)33 
UOUBAOV 
)31)»)33 
JO  l  »t»Jj 
301*9133 
301>««3rf 
331 >•  Y3j 
ooi  avow 

33l>Blw^ 

031*9x33 

03l*9>V3 


031SYa*3 
33**9 >3. 


CCCCCCCCCCCCCCCCCCCCCCCfCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC33l)YAJM 
C  33l)VZ33 


<£5£* 
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NENBEA  NAME  CONGE* 

C 

C  CALI  SUBROUTINE  BSSfMT  TO  SORT  ARRAYS  OTN.COEF , K JCUEF  INTO 

C  AN  EFFICIENT  ORDER  F OR  FONCEN  EXECUTION* 

C 

1  AO  CALL  ASSORT 


JOISViDj 

091>Y 

wMW 03- 

CuilOliu 

041*9994 

001*9)94 


091*0  *tf„ 

CCCCCCCCCCCCCCCCCCCCCCCCCrCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCr.CCCCCCCCCCOD»*J>^ 


991*4*44 


001*479* 

READ  UNIT  STRENGTHS  AND  COMBAT  UNIT  SOLUTION  VALUES  FAC1*  EN  091*0*44 
StICF  !  A  OOF  1 1  ST  CARD  OECR  CN  LOGICAL  UNIT  S.  0*1*4*44 


NJNIT  •  NtONM  ♦  N»UART 
01  ISO  I  •  UNUNI  T 
ISO  STRNTHI  II  *0.0 
C 

READ  I5.***l 

1*0  READ  IS, 9*01  I0TN,IIT|TLFIJI,J>I.TI,IISRCUI.R*1.)I. 
*  I  I TFSNIJt,J>|,?l ,  I STRN*  SOL 

IF  I  IOM.EQ.tt9l  GO  TO  IBS 
0)  1  TO  I  •  UNUNIT 
IF  <IOT».Nf.OTNMII  GO  TO  1T0 
STRNTHI I t  •  | S  TAN 
IF  I  l.ll.NCONBTI  T COE F  III  -  SOL 

CO  TO  Ifal 
170  CONTINUE 
CD  TO  It) 


90i*iw94 
091*1 IJj 
90i*1<94 
00 1*1  >09 
091*1 *44 
*91*1*44 
991*1*94 
001*1 799 
991*1*99 
001*199* 
091*9994 

00l*4 144 

OVUIlM 
001*9  444 
99 .*9*44 


091*9*49 

901*9*44 


CCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrCCCCtCCCCCCCCCCCCCCCCCCC99 1*979^ 


c 

c 

c 

c 

• 

c 

IBS 


BO 


991*9999 
001*99*4 
)Ol»ll« 
941*1194 
OOUiIm 
001*4*44 
001*1*94 
0Ol*4>99 
091*9*94 
991*97*4 
UG 1*4*99 
Owl* it)* 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC09*»«i94 

0U1»*1*4 


OIVIOC  A-NATAII  COEFFICIENTS  4S  R(AO  »V  ThT  SOLUTICN  VALUES 
OF  THC  CORAf SF1NDING  CONBAT  NODULfS  TO  OBTAIN  LA  CCEFFICIENTS 
OF  ALLOCATION  FEB  CUNB4T  NOOW.I. 

00  ISO  I  •  I , NANI 
II  •  RJGMI  R4CJCFI 11/1000  I 
COIMII  -  COCA  «  I  •  /  TCOfAlllt 
CONTINUE 


0*1**994 

READ  COST  OATA  FRO*  BN  SLICE  EXTRACTION  FRON  COSTALS  FO*  TACH  99»**i*4 


UNIT.  A  WEIGHTED  SUt  OF  Tnf  1}  BuDGF  T  (ATICU<|FS  AN'i  TH(  *  GDI****, 

AfACTTlN  STATIONS  IS  TA«CN  10  ARODUCC  ONE  III  UNIT  CCST  FOR  >91**  >4* 
THIS  LA  WlOfL.  ONLY  THE  SINGLE  UNIT  COST  IS  STTMEC  AOR  EACH  >91*«*44 
UNIT.  401*«7*4 

THIS  IS  Th(  SAN  AS  BN  SLICE  lAMT  OS.  091*«T|4 


001***94 

RFwlNO  S  W9l**t.4 

ABUSE  001  991*FW44 

REMIND  B  00 1* * 1 4 4 

99 **>94. 

•  E  AO  IS.tbSI  IIYiCStll  I  .  I  •  I .  **C  ST  t  091*>44. 

•  f  AO  <*,t*OI  lAYCSTAII  1,1*1. NAISTAI  991*>*44 
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I 


MCN9CR  NAME  CONCCN 

»*0  7 9ANATI 10(9.4)  .  _ 

03  200  I  •  I.NUNIT  00 t *7*03 

200  COST! 1 1  •  0.0  00l*>70* 

210  MAO  I9.CND-2T0I  IO.COSTIN  0*1*990* 

;  219  *1*0  (  91  IO.COSTIN  001»>*J* 

C  I*  IC07,  •)  2*0.229  001***** 

220  0'J  2)9  I  •  I.NUNIT  _  *0  .»•!** 

I*  IDTNI  II.Nf.19)  00  TO  2)0  001**20* 

*  •  0  ... 

CO  240  J  •  I.NCST  **i»*40* 

I*  IIRTSIAIJ.ll.fg.il  CO  TO  290  OOUkSOJ 

*  •  *  ♦  1  001***90 

COST!  1 1  •  COST  III  •  COSTINIKI  •  AVCCSTIJt  J01*»7** 

C9  TO  20  00 !»•»** 

290  09  2*0  l  •  l.NRTSTA  001 **90* 

«  ■  *  *  I  001*700* 

2*0  COST  1 1 1  •  COST  III  ♦  COSTINIKI  •  AVCCSTI  J|  •  AVCSTAtll  001*710* 

2*0  CONTINUC  001*720* 

COSH  II  •  COST  III  /  l.OC*  001*7)03 

2)0  CONTINUC  001*7*0o 

CO  TO  210  001*79** 

C  001*7*0w 

C  001*7700 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCrcCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC001*7*0* 

:  . . .  0*1*7900 

C  001*0*0* 

290  *c  turn  oot»*i09 

C  001**230 

C  901*9)90 

1*)  73RNATI I*. 71, 4  A4, 291  l*  II  001*940* 

1**  TOAMATI I  A,  J(,I«A4|  _  .  _  001*090* 

990  70KMTII4. SI, 7*4. 21.1*4. II, 29*. 1 9*9  9. )l  00a*9*** 

999  l)KN4VU0ll  001*97*3 

C  001*9900 

900  OMTf  I  *,9191  NANI  0*1*990* 

910  CORN* 1 1  |m), 99m****a  COC’HCICNT  9T09ACI  CARACITV  I'CCCOCO  MlTM  NANO* l 4*0** 

•I  *.191  ....  - _  .  001*9100 

ST OR  0009  001*9200 

920  WRIT'  l*,!»l  NANI  OOU9)*0 

9)0  R9RNATI  l»A),  99H*****  C0C*7|CICNT  ST  OR  ACC  CARACI7Y  nCCIOfO  Ml  TH  N9N**i*94w* 

•f  *.191  001*99*o 

St OR  009*  001*9*00 

C  001*9700 

C  001*990* 


:  219  RtAO  < 


IO.COSTIN 


CO  TO  290 


AVCCSTIJt 


•  l.NRTSTA 


•  COST  III  ♦  COSTINIKI  •  AVCCSTI J|  •  AVCSTAIll 

•  costiii  /  l.oc*  _ _ 


1C  ICOC.  91  290,229 
00  2)9  I  •  I.NUNIT 
1C  IOTNI  II. NT. 191  CO  TO  2)0 
K  •  0 

ro  2*0  J  •  I.NCST 
1C  IIRTSTAIJ.ll.Cg.il  CO  TO 
K  •  K  ♦  1 

COSTIII  •  COSTIII  •  COSTINIKI 
C)  TO  20 

09  2*0  l  •  l.NRTSTA 
*  •  K  *  1 

COSTIII  •  COSTIII  ♦  COSTINIKI 
CONTINUC 

cosri  ii  •  costiii  /  l.oc* 

CONTINUC 
CO  TO  210 


RCTURN 


T3ANATI 14, 71.4*4.291  1*  II 
70AMATI |*. JI.I4A4I 

CORMATI  |*.  )l,  l*«. 21.  >4  4,  >1.294.1  9.M.)| 
ORNATIIOII 


LRl'J 
iTTrr*r»ii 


CONCCN 


*  JUNf  72 


KSSORT  IS  A  C9«n*N  IV  SONROuTINC  THAT  SORTS  70*91*  ARRAVS 
OTN  AND  COC7.KJCOT7  AS  CONSTRUCTfO  RRON  ON  Slid  RCOCl  OUT  RUT 
INTO  (77  1C  1C  NT  OR 9(9  S  70*  7QNC7N  MC  CUT  I  ON 


C0*N9N  /9CSmu7NC0NRT,NSURRT.NR*A«,NR*ANU 
COMMON  /OC  SCAR/STANTHI  7*91  ,DT*I  7901, 70STI  7*01 
COMMON  /AC07AC/C9CM*OOOI.KJCOCM*OOOI  .NAN2.N9NI 


mm 


**i  ***** 

001701*9 
0*17*2** 
001  7w)0w 
001704J9 
0*170)0* 
00170*** 
001707** 
0*17090* 
OWA  7*9** 
00171*0* 
0017110* 
001712** 
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'(««(*  KM  COM  ill 
INTCCIA  Of* 

c 
c 
c 


scat  *•411111  i»mt  atit  wnoi  w  uiin  cot»,*jcor»i  into 

O«0(a  Of  COAMT  1091/(11  AS  GIVfM*-SOAT  A*  IJ//0>KC  UNIT. 


441 M  44* 
Ow*?|N4w 

OOlTlTU* 


4*  •  1 

do.nvj* 

0)  SO  1  •  I.NCOAM 

Owl TJwww 

03  S«  4  •  Ji.NSiT 

Ow *  T4 Iww 

IT  MiCOfM  JI/D43.NI.9TAMI  1  CO  TO 

SO 

44*1 4«4* 

c 

04*T/4vw 

IT*a*  •  ■  JCOCMHI 

04tf4s4* 

T C A*  •  COIMJII 

44*  T l >4w 

c 

44114*44 

«JC0(M4)I  •  AiCOtHJI 

Mill  T94 

C4tflJll  •  C  If  M  41 

44«T4iww 

m 

* 

00IT/A4* 

AJCOff 1  41  •  ITfMf 

4011*444 

COCM  41  •  TIM 

4w*  T*|4w 

c 

44*TJjuw 

41  •  41  •  1 

041T4»4w 

so 

COM  USUI 

441 T*s44 

SO 

CONTIVOf 

00  *l*>44 

c 

041 T4s4w 

c 

wwi TITjj 

p 

• 

SWT  A*ASTA|(  ItfJAPI  MNfM  TO  MD/iMSt  Of  AUATt 

COff.AXOCf  I40IT4A4* 

A 

• 

INTO  OAOIA  Of  SOffOATTO  H.ffOAf  UNITS  *S  ClTflN. 

44  IT  4*4* 

c 

44*  Ts044 

41  .  NISI  •  I 

40*  Tsl4* 

NINO  •  NANT  •  MAT 

04ITS44* 

II  •  MCOMAT  •  l 

44* IS  444 

M  INI  T  «  MCOSAI  •  IVUHI 

04*  T «*44 

0)  AO  1  •  II.MUNIT 

40ITSS44 

03  TO  4  •  JUNTA* 

44*  T**4w 

If  MJCOffl  JI/ICOS.Nf.OTftlll  1  CO  TO 

TO 

OOlTwTOw 

c 

40*  T«A4* 

ITfMf  •  A4COfft4il 

44* ISA44 

TlNf  •  COTf 1411 

04 1 f  >44w 

c 

4w ITS  144 

A4C0M  1  4 1 1  •  A  4C0f  f  1  41 

44ITS44* 

COIMJII  •  CUfflil 

OOlTJjOO 

c 

44*  T»Sw* 

A4C0TM4I  •  ITIAf 

44«T*>w 

COIMJI  •  T«Af 

44IT4»4* 

c 

4s*T>Tww 

41  •  Jl  •  t 

40IT»t40 

TO 

C0NTIMU1 

OjITSSJ* 

so 

CONTISuf 

Ow» T*4wj 

c 

Cl4*T»*44 

c 

44*  T««*w 

Af TUAN 

40*  TSSU4 

c 

4*1T*s4j 

f  N'T 

Ow*  T*>  >4* 

4wt  l*»vii 

COMM  N 


A  JUNf  T* 


•OWflMf  10  A|AO  »»0«  10CICAC  (AIT  »  AAA A*S  ©T  N,  >i|»NTA, 


401T*T>« 
J/i T**w* 
441 T»44* 

4V*  T T444 


NENBCR  HAKE  tONGEN 
C  HJC3IE.CJtF.KlX.yM0l 

;  HAND  IN  IS  CALICO  3NCf  F*OM  ROUTINE  IMT  IF  I  NfUT  C*»A 

C  VAAIAHE  0*  I  S3  A  •  2  (NANO  Ml  fARf  0  OATAI 

c 

c 

common  /OE SCAB /ST ANT Ml  TA9l.niMITb)l .COST  I 7*31 
COMMON  /CfF/NtFF,tF»lAM  *.))  ,t‘EloP,*l 

common  moFAC/citn «cooi,« jcoef hoooi  .nani.nfni 
common  /HfonL/nitSw.lOlSIJISO.Ol.MlOLS.AlBTVA 
COMMON  /«ESOl  J/NCtt«M,NSOMT,N*  SSM.NfAANU 

common  /tiilc/itiilhti.isrcoi 

c 

DIMENSION  IEMM  )| 

DIMENSION  I I0LSI2 JSO.OI 

caul  valence  t itolsii.ii.tolsii.iii 

c 

IMirCER  cfclai 

INTECEA  OTM.rOLNSM 
C 

HEAL  •  •  AECAI J.CNOA, J.INO 
C 

OATA  BECA I J /  BHBE GCOEF  / 

DATA  FNDAIJ/  BriENOCOEF  / 

•CAL  LIOL.LMTOL 

C  _  .  .  . -  . 

C 

C  NUMBER  Of  COMBAT  UNIT  TvfES 

C 

ACAD  IS. *01  NCOMBT 
C 

C  NUMSCB  Of  SUffOAT  UNI T  TvffS 

C 


AEAO  IS. *01  NSUAAT 
C 

C  UNIT  CHARACTERISTICS 


JUAMIJ- 

J04f 7/3* 

j.iinj. 

Jw4?  U3„ 
jji  n»j- 
OiUUj* 
SbilllA. 
Ja *11 .0. 

oo i  lisa. 

OblU.J. 
00  1  T.Uw 
0041*23. 
30  If  MO. 

oai ?*«o* 

OOllASOw 
Oj1TA»Ow 
>0474733 
001  f  lAOw 
0O4?*«JJ 
Owl?tJ33 
001 ffi.* 
0047*233 
0JA7«A3w 
00  X  In.W 
Ow17N>>* 
304  7**3./ 
001  /A/3. 

0047*43* 
Oo  47**3. 
004«J.*3 
004*010* 
004*3.** 

334*343* 

00  4  **•*«/ 
aouvsjj 
0O4«**3* 


10 

C 

c 

c 

c 


20 


NJNIT  •  NCOMBT  »  nSUFAT  001*07*3 

00  10  I  ■  l.NUNII  0*44*4** 

AERO  IS.TOI  OfNIII.I  IT  I  TIE  I  Jl  ,  J«  | .  71  ,<  ISRC  IRI  .««l .  )  1 .  1 1  f  M.CCST  1 1  1*34*  J*.* 
STANTHIII  •  ITEM*  0044U3* 

WAITE  IT, 1101  tlTITLf(JI.J*l«Tl.t|SRCCRI.I*l.SI  004*4.3./ 

CONTINUE  004*4/** 


UNIT  ALLOCATION  RULE  COEFFICIENTS  ANO  fCSSIBLE 

tolerances 


INOE*  •  0 
NTOLS  ■  0 
J  •  0 

AEAO  IS.BOI  INO.  IOTM.JOIm.AI  J.LTfl.LTOL 
If  I IND.EQ.BfGAI Jl  CO  TO  20 

If  IINO.TQ.CNOAIJI  00  TO  10 

INOf •  •  INOE*  *  I 

KjCOEfl  INOEH  •  IOTM  •  1COO  •  JOTM 
COffllNOEM  •  AIJ 

If  iltol.le.o.o.ano.utol.le.o.oi  CO  TO  to 

NTOLS  •  NIOLS  *  1 
If  (NTOLS.GT.2ISOI  CO  TO  120 


3CIBIA./3 

3*444**. 

30444*3. 
30441  I** 
M.4I.J/ 
004*4*3* 
00442.** 
JO»*J. J* 
004 4J«*. 
J*  4421.. 
J*4*2«J. 
001*/ *4* 
004*/* ** 

>04  4/ f  J* 

004*2*33 


224 


Sfftt(«  N4SJ  ClISGfS 


inn  ii  <fus.il  •  n»*  «  toco  •  jot* 

00142*.. 

lit  M  SIX  S.?l  •  ItiM. 

Owl 4499u 

IX10liilS.lt  •  UIJl 

>4. til 04 

Oil  IJ  /. 

0.4442.. 

i  to 

M  t4.C9.ll  «/1  11  70 

J0l44t«4 

4*1 

Out* 44.. 

•ft  I  *  f  0.1101 

9. 1#  >1i. 

CO  to  40 

Jwl4l4w. 

0 

• 

out  441.. 

c 

Mitt*., 

0 

JUt* J  Vw. 

c 

ta«i  itttvi  coi # »■  oco##  inio  w**o«mo  unii  otott 

0Ji4«J.. 

z 

#04  f«#ifioi  c<i*xs  iMCunrs. 

9.14414. 

0 

w 

OOia.tw. 

c 

UOlMtvv 

)0 

41  •  1 

0010440* 

S4S/  •  0 

90144).. 

St**/  •  0 

9vl#tw. 

0)  10  1  •  l.SUSlI 

40444 1.. 

01  O  4  •  41. 1 SOt 4 

00l4«t.. 

1#  I*  4Cl>(#l  41/  IO<*O.St  .91*1 1 1  1  60  10*3 

4014*V.. 

• 

0.ta>... 

i#  ii.gi.*:o*»m  co  in  to 

OO.allOu 

N*S/  •  S4S/  •  1 

.Jl# .... 

CO  10  130 

0.1 4)>.. 

10 

SIS/  •  Sts/  •  I 

09 14  >40. 

t 

to 

0014  >19. 

109 

IMS*  •  •JCOCMJll 

J.14149. 

11**111  •  COt# 1411 

9914)19. 

t 

0.l4)4w. 

(4Cur«l4ll  •  (JCOMUI 

99l4)VJ. 

cue# (4ii  •  cocci  4t 

091449.. 

c 

00 1 e* 10. 

(4COMI4I  •  IMS* 

..144... 

011*141  •  IC**1|I 

00  1  44  1.. 

0 

m 

JC  1 4.40. 

41  •  41  •  l 

9Ult4>.. 

40 

CUSI ISOC 

9014*4.0 

10 

C0S1 ISOf 

0014*1.. 

c 

001**4.. 

c 

09144V JJ 

•f tons 

901*109. 

f 

to 

0.141 19. 

40 

#3««4»l 111 

99.41*9. 

»0 

#  )«s4t  i  n*. /( ,14*.  41. /i.  is.n.ti  i.*t 

0  J  It  1 40  J 

to 

#  4**4  M t«.|4,|  1, 1, / 4, u 1 14. *, ll, 11/. 41 

09141*9. 

119 

#  Jtf*  it  |  /4s, 104  ,244,1),  1141 

Ju.tf  >9. 

119 

r  j«s*ii  mo. •/  *•>•»•  iii * ttscc  *1  s  is*ot  roM  *u«c  iHt*  nio 

COCMICOvlWfeO. 

•  ICNI1.  1*1  (4CtS1  «ai  ICSOMO.I 

JJ  14  1 7  .. 

C 

0014 /too 

IS* 

9.  1  •  1  V  Jw 

c 

OUt  4*1.9 

c 

casus  4  40 N#  1} 

0014*20. 

c 

JOl #4  40. 

• 

1*11  11  *  1 4 14041 1  Sf  $04*«0&t4**  **ICH  is  ctuir  cm:*  #«0S 

991444.. 

• 

• 

Inf  S*|<  4UJMNC  #3*f.!S  10  r.CSCMIC  1MC  lOGICU  SU*-S4Tt|4 

jC  1  44  Ij. 

c 

O#  COI  US*  vi  Clots  1*4  f  M|*MSCS1  IN#  CUSMT  *0101 C 1  0#  4 

#0«CI 

0.144... 
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MfMAfA  NAME  CUNCEN 


•AU1IL.  . . . 

COMMON  /ALrNA/NUI  JSI 
COMMON  /Hf  I/SIA.LGL 

Common  /CK/CW»iM*''l,:srf«l*OI,Ctl*rt*0>  .CL’EAIAO) 
common  /ni  scar/tiaNfHi  tnoi.oimi uoi  .costi toi 
C1«**JN  /nc  YIAt/CSS*.  CL  Si.SaSSw.  SALlM, SEISM, SHIM 
Common  fttr  I)  ,f»f  1*0. kl 

Common  /G*oj*/C4i*SM.Gino»i  t*oi  ,ic<nuri  TA0.2I 
com.jn  /Mu/uNitirf.sm.f s.*<i  <cs<  m.si.iMi tcsuooi 

COMM  IN  /Ni  /FS/Nfia|,NVi**,N«nM|,N*OM*.NNI  ,NNN 
Common  /NCON/NCONltDI.At  SCONIAI 
CUMMON  /ONJWOAlANM  7,;i,nomj 

common  /«fQ«ac/cot*i*oe<5i.o;ofr iacooi  .nane.nani 

COMMON  /«f 3 IOL/ I 3L«S3. I7LS<2)*0.  JI.NIOLS.Aialvr 
COMMON  /ariOLU/NCOMMT.NSOaaT.NMftM.NHIiMU 
common  /sioN/NCo./ius./f ao.au. ran 
common  /tm/mu/nuno.i iNMtii toi 

iNHGta  cars* 

iNirora  neg. nut. ictn.aia, rate 

iNKGca  sia.lgl 

iniegea  o»n«m( 

iniegca  tuiasM 

i Nicer a  oim 

iniegea  uminsm 

iNircra  rrrtas.tLaiva.acscoN 

INIEGCA  CSSM.ClSM.SHSSM.SaiSM,  srStw.SHSM 

INTccra  csTta,CLi»r 

aiai  LMint 

aiai  mi  in 


OOlitlvO 

00.«**tf3 

331AAN33 
Mil  ivvw 
G01**lwJ 
001**23* 

oouoo* 

001***03 

001**>3.> 

J0l***33 

GO  1** TOO 
Owl**. 3. 
Millli. 
G01*GC3w 

031*313. 

ooi viij* 

©01*300. 
001*0*3. 
0©l*wS3~ 
00 1 *3*. 3 
3.1*3/33 

©wi*oaj. 

001*3*30 
Milin^j 
3i.*.l3. 
001*121 33 
001*1003 
J0.V.A33 
001*1 >03 
001*14.3 
30.*iT33 
Owl *1 403 
001*1*3,/ 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCO. 1*2.3. 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ir  THcae  aac  no  comaai  nodules  in  this  woel.*etu*n  ccnimol 
10  rOMGEN. 


ir  <NCOMai.to. oi 
laoiNt  •  1 


ariuaN 


jjiii Iww 
001*2233 
.  001  *213. 

oo.* i*wo 

OOi*2SO. 
001*2*00 
00. *2  I// 
Ow iv2*// 

is  gcncaaieo  rna  each  nr  nccmhi  ccmiai  moduleo3*«2*j. 

03. *.333 
wwl«ilww 
001*0203 
G3l*i3.. 

ratraar  the  oigits  or  the  otm  NUMaea  or  this  comeai  module.oivu... 

rort  usr  IN  ao*  AND  COLUMN  NAMES.  001*1*3. 

0 G.YikO. 

call  •aaooGiorNiii.il. 12. m  uoiviro. 

001*i*3w 

GENEaaiE  THE  NAME  Or  THIS  COLUMN  VELIOA  AY  2  CALLS  10  0w19S*wj 
FUNCTION  NAME  10  CONCATENATE  A  CHAAACTFAS  WHICH  AAE  rASSEO  301V. 33. 
AS  CALLING  FAA AME  TENS.  001*.  Uw 

001V.2.3 

NVAA1  •  NAMCINUI  121.11.  I2.m  OOlV.Jww 

NVAA2  ■  BL<  OOIVMAO. 


ONE  COLUMN  YECTOa 

tyfes 

00  10  I  •  l.NCOMII 


I 


<JmaS~ 
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/ 


NfMBfA  N»Nf 

C 


cftu  coin 

mis  :oiu*«n  into  »nf 
ro  io*«  iui\{  (* sis. 

CALI  4ASIllltt,NvA«|,NvtA2l 


AOVANCIO  STAAT  IASI l  I* 


CONOfN 

INK*  THIS  COLUMN  INTO  TNT  list  Of  NOTtl  COLUMNS  t»  A  CtUJUiVw^ 

to  suMojriNf  :ono.  ooiymUj 

001  'tvti* 

M5  U.YUU 

OOlASOtfv 

i\M*  this  coiu^n  into  iht  advanceo  siaat  basis  •*  a  (au 

TO  SUAftllltlNT  (Alls.  JJ.Wxjw 

9tflS*A«tf 

SISIStt,NvA«|,NVtA2l  >0lV>4j„ 

JU1BUJJ 

(NTCA  M‘  ItAfN'.tM  Of  THIS  CCIAAT  MODULE  INTO  AlTfANATItff  0 wiYSww 

object  iff  rr<cn  in  /I'siAN/  a*  a  c*u  to  fusctiON  name  to  dj,«>tj., 

fOHN  THf  OUT  :  T  I  V I  f  U’*C  1 1  *IN  NA»f,AMO  A  CAU  TC  SUfAOUl  INI  *«.*>•>« 
NATtfAT  TO  tft|  I  f  THf  NA  I  «|  I  COf»f  I C  I  TNT  .  JJlYJVj, 

THIS  USJtCtlYf  f  UNC  T I  ON  IS  IHT  SO"  Of  tHf  STMNCTHS  Of  AUJ*l 
COHAAT  ’'JOINTS  AND  SUBBOAT  UNITS  IN  A  fOACT.  DDlVk.Otf 

IHS  CUT  ft  1C  If  NT  IS  SCAltft  IN  I000S.  OUl  Nk#** 

MITtlw 

OSNAHMI.il  M.HOw 

OSNIHM  |.  21  OJIvaaj* 

IUS  OJIvkv^v 

TtfATtlTAMHIl  1/lOCO.i  JOlfafJw 

J0IV»4** 

INTTA  I  Mf  STAfNSTH  0*  THIS  COMBAT  NOOUtE  INTO  AITTANAT  |vf  Owl»*Vv- 


MOtfl  •  OSNAHMI.il 
MHtf2  •  OSNtHM  |,2I 
NNN  •  BIUS 

CAll  HAThATISTANTHIII/IOCO.I 


OAJTCTIvr  fUNCt  ION  /  TC  S  It  Nf  A*  (AUS  TO  NAHf  AND  NAIaftt  * 


IMIS  OfllTCIIVf  f UNCTION  IS  TH(  SUM 
COHSAT  •'lSUifl  IN  A  fOACI. 

THf  COT  •  MC  IT  NT  IS  SCAlTO  IN  IOCOS. 

NAOtfl  •  0BNtHM2.ll 
N«0tf2  •  0HNANMJ.2I 
C»U  MATmATISTANIhMI/1000.1 


SUM  Of  THf  Sli'NCTMS 


(NTCA  TMf  COST  Of  THIS  COMBAT  MOOUU  INTO  AITTANAT  |yf 
OBJECTIVE  fJNCTITN  /IfCOST/  IT  C<llS  TO  NAMT  ANN  NAttfAT, 
THIS  OBJECTIVE  f  UNf  T  |  ON  SUMS  THf  COST  Of  All  CC"BAT 
HOOUICS  ANO  SUffOAT  UNITS  IN  A  fOACC. 

NAOtfl  •  0ANANM4.il 
NA0W2  •  OANANf 14, 21 
NNN  •  nus 
CAll  NAT»AMC0STI  III 


f NTIA  THf  COST  Of  THIS  COHAAT  MOOUU  INTO  AIT*  ANAT I VI 
OAJCCTI VC  fUNCTION  /TCCOSTf  AT  CtllS  TO  NANf  AND  NATtfAT, 
THIS  OBJECTIVE  fUNCTICN  SUMS  THf  COST  Of  All  CCMBAT 
HODJlES  IN  A  fCUCE. 

NAUtfl  ■  OANAHEIS.il 
NAOtf 2  •  OANANf I S. 21 
CAll  NATtfAMCOSTI  III 


ENTEA  THf  NEff  UNIT  f f f fCTI  Vf Nf SS  INDICES  IUf  TO  41 
Of  THIS  COMMIT  NrtOUlf  INTO  NE*f  MJOEl  AOtfS.  T ME  NAME  ANO 
*VBE  Of  EACH  AOtf  IS  INfUT  OtTA. 


All JO.VTlDu 
Ovi *»;o- 
utf Iff aJj 
Uwl Vl4*w 
D6IVJS2, 
JDIBTmjj 
OOIBTTJJ 
OuIVTaOj 
JJlVTU- 
Jwtvajj j 
JOiVAij.. 
u jIB aJj* 
uOIVASjJ 
JvAVAO. 
uOlVa >4, 
MlS**tftf 
ODlAATDtf 
UJIvAaJ- 
OD.VAUw 
Oj  IVijjj 

Muni* 

tf<>  .V42J* 
Owisvj^j 
00  INN* jv 
OuiVVJJ  > 

OOlVVTUu 
DtflNY*^</ 
02*  aSUj 
u j tfwD*** 
wDi-JO  1j  j 
JU2 JDatf j 


<$5*> 


/ 


4CWII  Mil  CtMOCN 

IF  (Nl'F.LC.OI  CO  TO  « 

NNN  •  NCC 

M  1$  J  •  l.NEFR 

NROwl  •  tFRL4AIJ.il 

NR0w2  •  CFRLABlj.JI 

CAU  RASISUCL  •*«  Iwl.NRPW/l 

NNI  •  |Mll4|j,)| 

CAU  KOrilO 


M 

C 

9 

9 

9 


CAU  NAlwRII  CRMI.JI  t 

INTERSECT  A  «05Fl  RDM  O*  THf  SANE  M*f  AS  THIS  COION* 
VICTOR  WHICH  CCNSTRAI  NS  Inf  NUWAER  HR  CO*A»T  ROOUliS  Of 

this  tyre  in  *  rower. the  stnsf  or  this  constraint  is 
srectrico  »r  T«r  value  or  array  nccn  tor  this  ccnsat 

HO OOil  TYRE.NCONIII  ■  ...EQUAL  RHS  VAlUt 

*...LCSS  THAN  OR  CQUAl  RHS  VALUE 
-...GREATER  Than  UR  EQUAL  RHS  VALUE 
R...NO  CONSTRAINT  IRAKI 

NO  NATTCR  MHAT  NCON  INOICATTS.  IR  CONRAT  NOOUIT  OfVlATION 
COLJNWS  ARf  10  l<  NOOILTn,  TH(  ROW  TYRE  IS  /CCU4L  TO/. 
SURROOTINT  ROWIO  IS  CAUIO  10  f NTf R  THIS  ROW  VICTOR  INTO 
THE  LIST  OR  UNIJUE  NOOTL  NANfS  I »  THIS  IS  Th(  RIRST 
ARRTAAANCC  OR  Th|  S  ROW  IN  THIS  NOOCL.NATWRT  It  CALKO  TO 
WRIT!  TNC  HATRII  COCRRICIINT  1*1.01. 

NR Owl  •  NVARl 
NR OWT  •  NVARl 
NNt  •  NCON I  II 

IR  ICSSW.GI.l. OR. CLSw.CC.il  NNI  •  RLK 

|R  INNI.NC.RLKI  CAU  R  ASI SILCL  .NROwl  .NROWl  I 

CALL  ROWIO  _  . 

NNN  •  ALUS 
CALL  NATWRT 11.01 


OCwJU AOv 
CQ/9J*Jw 
03/JtSww 
Qg<JJ»J./ 
OO/JlTO. 
J-ZuJAJ. 
0  JJJOAjj 
0J2vlw3v 
OO/wllO? 
0u/0*2j? 
w0/3i 1.. 
OJ«Ji*UJ 

Oi»  20 1  »WJ 
00/ Jl Trfw 
JJ*J 

0C.201VJ,. 
JdJv/03* 
0o«0« Ivj 

Jotji .Ov 

OO/O/JO.? 
00«J/«OJ 
00/0/>uv 
03/G2a3w 
JJ/J.f J? 
OO/ta/ROJ 
l>0  IOIRJ- 
OVdOiJjJ 
OU/vJlOw 
OO/wS/wJ 
Ou.JjjJ.* 
33/u JAv. 

oo/ossoo 


JOtJiuOj 

302v* too 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCGCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCeCCCCCOO/UJAOJ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

is 


INTIRSCCT  a  N05CL  TOW  TOR  CACH  SURRORT  UNIT  TYRE  TOR 
WHICH  THIS  CONRAT  NOOULE  His  A  ROS III  VC  REOUIRCNRNT. 

THE  OICITS  OR  THE  NUWAER  IJ*NCONATI  OR  EACH  SURRORT  UNIT 
RRCRARCO  ROR  USE  IN  THE  A  rM  NANE.NAHC  .ROWIO  A  AO  NATWRT 
ARC  CALLCO. 

THE  TYRE  OR  ALL  SUCH  ROwS  IS  THE  SANE  RNO  IS  VARIABLE. 

IT  IS  USUALLY  /LESS  THAN  OR  EQUAL/  OR  /COOAL/tl.E.. 

/AT  LEAST  AS  HANV/  9R  /EXACTLY  AS  RANY/  SURRORT  UNITS  AS 
SRECIRICO  BY  ALLOCATION  RULFS.  THE  NATNI*  COEFFICIENTS 
ARE  ROS  I II  VC. 

IR  INSUPRT.EQ.OI  00  TO  10 
CALL  RJUNRKIl.  IROINT.IRTR.JI 

if  iirtk.nc.otni  mi  co  ro  to 

CALL  BROOCH. Jl.J2.JSI 

NROwl  •  NtNEINUI2RI.Jl.J2.JSI 
NA0W2  •  RLK 
NWK  •  ALRTVR 


30/0)  »Jrf 
UOlwACOw 
OO/wV 100 

AAQO/JASOj 
UO/UVAww 
J  0/wOOw 
JCICVwOJ 
59/0 VTOU 

J O. J.VJJ 

OOiOitiOj 
30 /*>  lO«i 
J  3/3>< Jw 
00/0? JOv 
30Z3X.3J 
0323»J? 
002w560w 
iN/vIlm 
duiuituj 
302wS«3j 
dO/JuUOu 
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NfMRER  NAME  CONGCN 

I*  tSASSw.CE.i.OA.SXlStf.GE.I.OA.S'SSW.GE.  l.OR.  SriSM.Cr.il  NNX.BL*  wwwdAlu.. 


CAU  AOWID 

NNN  •  plus 

CALL  NATwKf (CJ£FI IPOINTI I 

IF  fOt  CA ANC*  IS  All  Owl  P  IN  GfNFAAL  0*1  RF  OU I  RFMF  Ml  %  f  0* 
SU»*(UT  UNITS  SV  CU*MAT  miTUlfS  I  NO  BY  SUPPORT  UNITS 
ION  INDIVIDUAL  ALLOC  A  I  If  N  PULI  rOMMCIIMSI 
ITOIASW  •  II  ,  P\«J  ir  IN  AIK  T  IT  Ut  Alt  LOwFR  PNP/OR  UPPER 


ANO/O-t  UATOU  IPOINT-l  I  t  O.DI  .  COtlMLt  THIS  CCP»AT  UNIT 
COL  INN  V'CTUN  Til  1  U«  2  CUl  UN  NS  WfPRE  SINT  INC  M'|MUN 
01 V  I  AT  I  INI  S I  •  THIS  Cn.NfCTION  IS  PV  A  -1.0  COITI  1C  I  ENT 
IN  A  SPECIAL  «0)'l  MOW.  THt  NANf  or  IMIS  APw  IOENTIHFS 
TNf  COI FF  I C  I  f  NT  ON  WHICH  JOLFRINCF  IS  ALLOWED  BY  USING 
THE  I  A  NO  J  NUNK-MS.  Th{  A-Cu\AACfFM  LIMIT  ON  THC  Sill 
OF  THC  HOW  NtWI  PPOUIRIIS  ThI  USF  OF  OTM  Nl'MBFRS  HIRE. 
THE  COEFFICIENT  IS  OENF  AATf 0  FY  CALLS  TO  ROUT  INFS  NAME. 
RUM  1 0  ANO  MAT WAT  * 

IPO  I  NT  •  IPOINT  •  | 

IF  ITOlASW.NE.il  GO  TO  IS 
00  ISO  IN JE A  *  I.NTUIS 
CALL  RJUNPKI2, IV)r«.l».J(l 
IF  IIPfX.NC.lK.OA.J.NE.JKI  GO  TO  ISO 
IF  ITOISI  I NOE l«2l. IE. 0.3. A NO. TOL St  INOf I.  SI. LI. 0.0 1 


GJ  TO  IS 


0w2wTi0v 
Uv* JTJv* 
GOwwT  >uw 
OOvwTAOw 
OOkOTpOj 
03  vw 7*0j 
w020r?»u 
oOaJTbjv 
0020 I V03 
OMWPwOO 
002uA lOw 
w32w #2w v 
06204SG0 
J320«v0u 
002 JBSUw 
OLiJOApOv 
J3kOp7»w 
Uv2wppOO 
UWXUBVOO 
UW2 JBOOv 
0320VIOU 
M2WN23u 
00209S0* 
OUlWVAOw 
0320V50w 
302wV* 0 J 

:  0320^100 

C  JJVJVBUw 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCeCCCCCwOiuVSw- 
:  ji)2iwuow 
C  OOWIGlGu 
C  IF  UNIT  MIX  SPECIFICATIONS  ARE  PLIOWEO  IN  THIS  MODEL  AT  0w2i0.tUw 
:  ALLtANS  ir  THIS  CCHAAT  MOOUIE  APPEARS  IN  ONE  CR  MORE  MIXES.  0021 0  iJJ 


C 

ISO 


NAOWl  ■  NINE  II  1  •  I  2. 1  S.N'Jf  201 1 

N40W2  •  NANIIJI.J2.JS.NUI III  I 

NNX  •  PLUS 

CALL  ROWIO 

NNN  •  NEG 

CALL  MAIWRII1.0I 

CONTINUE 
GO  TO  IS 


C 

20 

C 


COUPLE  THIS  COMSAT  M  SOULE  fOlLT'N  YECTOH  *0  THAT  ITHOSEI 
COLUMN  VECTOAISI  REPHESENTING  THE  M|»IESI  RV  A  -1.0 
COEFFICIENT  IN  ONC  OR  MORE  COUPLING  MODEL  MOWS. 

IF  NO  UNIT  MIXES  RAF  ALLOWED  AT  ALL. SKIP  THIS 
SECTION. 

IF  IUMIXSW.NE. II  GO  TO  10 

OFTEAMINE  IN  HCW  MANY  UNIT  MIXFS  THIS  CCNBAT 
MTlUlf  APPEARS  (VARIABLE  MX  I  NO  I . AND  |F  THIS  IS 
GRfATCA  THAN  0. THE  SEQUENCE  NUMBER ( SI  OF  THAT 
ITHOSEI  MIXES  (STORED  (N  ARRAY  UKMIX). 

CALI  INN (XC ( 1  I 


00210 AGO 
OuiilOJj 
002. wpOv 
OOWlU/Uu 
OOJIOttOx 
002. -VO- 
Uw2 11000 
002111 OJ 
00.. .<00 
Gw  21 1 Jjw 
00211a jO 
002. »Sjj 
Oo2l I buJ 
00211700 
0j2. 1 UOw 
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MEMBER  NM( 

C 


CQNGEN 


C  ..  0021 iVOb 

C  I*  This  COMBAT  MODULE  90ES  NOT  APPEAR  IN  ANY  00 Hi*** 

:  Nil  SAC  Cl F| CATIONS  i  S<  IF  IMIS  SECTION.  0521210. 

C  00 

IF  INI  INO.CO.O I  CO  19  O  9921230b 

C  002l2*u. 

:  CENT FATE  A  -1.0  COEFFICIENT  IN  A  COUFIIN0  Jb2 iOO- 

:  AON  F  SA  EACH  OF  THE  M*|NO  UNIT  N|IES  IN  WHICH  w02l26Ub 

C  THIS  CONAAT  MOOULE  AFFfAAS.  THE  COUPLING  AC«S  0021 270. 

C  ANE  f rt*E  ■  AND  ARE  IDENTIFIED  BY  THE  SECUENCE  J02UAJ. 

C  NUMBER  OF  THE  Nil  A  NO  THE  DIM  NUNS  E  A  OF  THIS  OJ2129jb 

C  CONIAT  MOOULE.  0021 J00. 

C  ...  „  _  _  _  Ob2l3lJ- 

03  SO  J  •  l* N UNO  0D2*J20b 

C  0J21J>0b 

CAU  BAR30GC  I  |NN|  II  J|,  Jl.JJ,  JSI  0921340. 

C  0921.»30b 

NAOMI  ■  NANEINUI22I.J1.J2.J3I  00213*0. 

NA0M2  •  NAME!  NUI  ill. II. I  2.131  _ _  _  0921370. 

NNI  •  All  0b2iJ iOb 

CAU  AOMIP  _  0021490. 

NNN  •  NEC  0921400. 

CAU  NATMATI  1.01  0021410. 

C  0C21420. 

30  CONTINUE  .  .  .  _ _ _ _ _  ...  09214)0. 

C  00«1.«0. 

C  CO  21 «  30b 

CCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCJJ21.»0v 
:  •  002147.. 

C  0021460. 

C  _  INTIASECT  NOOEL  AOM  /TFSTAL/. WHICH  ALICES  AN  UPPER  UNIT  002*4VO. 

;  CONSTAAINT  ON  THE  TOTAL  STRENGTH  OF  COMBAT  NODULES  ANO  0.21500. 

C  SUFFOAI  units  IN  A  FOAC E. THr  “ATAI I  COEFFICIENT  IS  THE  0021310b 


INTEASECT  NOOEL  AOM  /TFSTAL/. WHICH  ALICES  AN  UAFfA  LIMIT  002*4VO. 
CONSTAAINT  ON  THE  TOTAL  STAiNCTH  OF  COMBAT  NODULES  ANO  0021300. 
SUAAOAT  UNITS  IN  A  FORCE. TH'  -ATAII  COEFFICIENT  IS  THE  0021310b 
STAENGTH  OF  THIS  COMBAT  MOOULE  ANO  IS  POSITIVE. THE  TYPE  OF  0021>20C 
AOM  /TFSTAL/  IS  '.ROUTINES  NANE.AOMIO  ANO  NATWAT  IAE  CALLEOJ.iUJO- 


THE  COEFFICIENT  IS  SCALEO  IN  1000S. 

NAOMI  -  NAMEINUI2NI.NUI  1 91 .NUI2BI .NUI29I I 
N10M2  •  NAME  I  NUI27f , NUI 21) .9LK.BLKI 
CALL  BASISILGL .NAU21 .NA0W2I 
NNK  ■  AESCONI 1 1 
CALL  AOWIO 

NNN  •  ALUS  _  _ 

CALL  NATMATI  STANTHI 1 1/1900.1 

INTEASECT  NOOEL  AOM  /TCSTAl/. WHICH  ALACFS  AN  UPAEA  LIMIT 
CONSTAAINT  ON  THE  TOTAL  STAENGTH  OF  COMBAT  MODULES  IN  A 


0021340b 

0021 >>0u 

09215*.. 
00  21370b 
0021160b 
00213900 
0021a JO. 
OO/lolOo 
0021a20b 
0021*39. 
0921449. 
0021650b 


FOACE.THE  NATAIA  COFFF ICIENT  IS  THE  STAENGTH  OF  THIS  COMBAT0021a60b 
MOOULE  ANO  IS  POSITIVE. THE  TYPE  OF  AOM  /TCSTAL/  IS  '.  002la7bb 

AOUTINES  NAMF , A3 4 10  ANO  MATwRT  IAE  CALLED.  UJ21ao.. 

THE  COEFFICIENT  IS  SCALED  IN  1900S.  0021*90. 

0021700b 

NAOMI  •  NAME  I  NUI  291.  NUI  12I.NUI2BI.NUI29I)  0.217109 

NA0M2  ■  NAMEINUI27I.NUI 21) . BLK.BLK)  092i7«0. 

CALL  BASISILGL. NA0MUNA0W2I  _  _  _  0021730b 

NNX  •  AESCONI  2  I  09217.09 

CALL  AOM 10  0021750b 

CALL  MATMATISTRNTHII  1/1000. I  Ob217oOO 
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onn  non  nnnouo«M»oo  ntioooo 


MEMBER  NAME  CONGEN 


c 

c 

c 

c 


Mil  Ills 

intersect  <0911  •on  mcsu/.MHiCH  pla cis  an  upper  limit  jo2i7aom 

CONST A4  INI  ON  the  TOTH  COST  »  01*547  MODULES  ANO  SUPPORT  0M21/VJ* 
UNITS  IN  A  »-»*:». Tm*  MATRIX  COEFFICIENT  IS  ThC  COST  OF  Th|X0m<1«Umm 
COORT  HiTJLE  AN9  IS  l*OSI  Tl Vf  .IMF  IV*»I  OF  ROM  /TFCSTL/  IS  ‘mm^fImm 


ROUTINES  NAME.AQMlD  AND  MATmRT  ARE  CALICO.  0021R20M 

Mil  A  30m 

NROMl  •  NANEINUI29I.NUI  ISI,NUtl2>,NUI2lll  Mil RAMM 

N«(K7  •  NA*r<NUI29|,NJI<l),BLK,BLKI  Ml USOo 

NNX  *  RESCJ-NlAI  UU«1R*mm 

CALL  BASISUGl  . N40M1, NR7M2I  mOXIRTmm 

CAU  R (I « 1 0  OOxiACOm 

NNN  ■  PIUS  OOXIBVmm 

CALL  NATmRTICOSTI  III  OmXiVmmJ 

OuxlvlOO 


INTERSECT  MODEL  ROM  STCCSTL/.MHICh  PLACES  AN  UPPER  LIMIT  0021420* 
CONSTR A  I'lT  ON  THE  TOTAL  COST  OF  COMCAT  MODULES  IN  A  FORCE.  0Ux193mm 
I  HE  MATRIX  COEFFICIENT  IS  THE  COST  0«  THIS  CCMOAT  MODULE  mmXIVAmJ 
AND  IS  PlISI  TIVF. ROUTINES  NAME.ROMlD  ANO  MATmRT  ARE  CALLED.  0U21V>0m 


0021 F6MM 

NLOmI  •  NAMEINJI2NI.NUI 12I.NUI  12I.NUI2III  0021970m 

M0W2  ■  MNtlNUI2H,NUI21>,BlK,5LKI  OOxIVBmm 

CALL  4ASISILCL .NR3O1.NR0M2I  G02i990m 

NNX  ■  RESCONISI  0 022000* 

CALL  ROM  1 0  0022010m 

CALL  MAURTICOSTI  III  0022020m 

0Uxxm3Mm 


002204mm 

CCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0022  0>MM 


00220o*0 

OOlltKj 

ENTER  SPECIFIED  ATTRIBUTE  OF  THIS  UNIT  TYPE  INTO  UNIT  00220*00 

CROUP  CONSTRAINT  IF  THIS  CONSTRAINT  IS  ALLDMEC  at  ALL  0o22mVmm 

IGRPSM  •  1  OK  21  ANO  THIS  UNIT  TYPE  IS  INCLUOTO  IN  ONE  m02*103m 
OF  THE  T 20  GROUPS  OF  UNITS  CONSTRAINED  0022110m 

002212mm 

IF  IGRPSM.E0.2I  CO  TO  SO  002213mm 

IF  ICKPSM.NE.il  CO  TO  110  00221»0u 

0022150m 

TOTAL  COMBAT  UNITS  VERSUS  TOTAL  SUPPORT  UNITS  002*16Mm 

002217mm 


INOEX  ■  l 
GJ  TO  70 


USER  DEFINABLE  CROUPS 


SO  INDFX  ■  1 

5  7  IE  I  IGROUPI INDEX, ll.E0.0l  GO  TO  110 

IX  •  DTE* I  I » 

IF  I  IX. Ed. IGROUPI INDEX, 111  CO  TO  70 
INOEX  «  INDEX  *  l 
GO  TO  57 


70 


IGX 

■  1 

CROUPI INOEX, 

2) 

VII 

•  E 

FFII 

,  1 G  X- 

31 

IF 

1 

SCX 

•  EQ. 

11 

VAL 

9 

IF 

1 

IGX 

.EQ. 

21 

VAl 

m 

IF 

1 

IGX 

.EQ. 

31 

VAL 

9 

STRNTHI I  I 
COSTin 
1.0 


00221600 
20x21900 
0022200J 
03222100 
OOiiiiJj 
002223mm 
UuilUJs 
00222)00 
002226mm 
002227mm 
JOaibjj 
0022290m 
0022 jOOm 
0M2231JJ 
00223200 
0022  3  3 JO 
0m2234mm 
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(fKc) 


t 


I 


member  nm(  congen 

_ val  •  groupiinoeri  •  vat  _ _ 

NNN  •  PIUS 

IF  (VAL. LT. 0.01  NNN  •  NEC 

vat  •  aesivau 
c 

MtOtf i  •  nanii  nu(  1*1. wm  ?7i,nui;*i.nu(10ii 
nrow2  •  N«<«EiMui2si.aiK.aiK,siKi 

can  basisilgl .nrqwi,nmow2i 

NNR  •  NfG 

cati  aovio 
can  raiwrtivali 


_ 9022333- 

3322  i*3J 
0 022*70- 
00<23*0- 
3022*90- 
0022*00- 
..  0-«*l— 

062**200 
002**30- 
0 622**3- 
9  -22*33- 


C  0022**C- 

_  C  0022*?3- 

CCCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC0322*B0- 
C  0 911*999 

C  0022 >00 J 

C  coital  NODULE  0 E  V I  a  T | ON  (FROM  «MSI  STRUCTURE  U-2*>1  — 

C  00 2*3203 

C  IF  coital  10 OUL E  SMOaTFatlS  a«E  TO  »E  lOOEtEC,  INTERSECT  00**>JO- 

C  a  «um  that  unis  the  amount  of  shortfall.  oo*23*o- 

C  0-2299-3 

no  nrowi  ■  Nvaai  — 229*0- 

IF  ICSSW  .LE.OI  CO  10  ISO  302297-3 

MOVE  ■  NAME!  NU(2B).NU( 2  31 .BLK.BLRI  30223B03 

NNR  •  CSIVPIII  .  _  _ _ _  .  _  0022 >900 

can  aowid  0022*00- 

INN  •  PLUS  00*26136 

can  natwrti  cspeaiii  i  0022*200 

C  0-22*3— 


IP 

c  . 
c 

ISO 


IF  lONGFailS  »M  TO  tE  MOOELEO.  INTERSECT  a  ROW  THRT  0622**0- 

LUITS  THE  AMOUNT  OF  LONCFatl  _ __  0022*30- 

0022**00 

IF  ICLSM  .LE.OI  60  TO  |flO  00 2<*7— 

NAOW2  -  NRMEINUI  2 ll.NUI  2SI .BLK  .BLK I  0022**— 

NNR  •  CLTVPIII  0022*900 

can  ROMID  00227— 

NNN  ■  PLUS  .  _ _ _ _ _  0022710- 

Can  NRTURTI  CtPERIII  I  002272— 


C  302273— 
C  IF  SHORTFatLS  ARE  TO  BE  "OOELED,  CONSTRUCT  a  COLUMN  VECTOR33227*0- 
C  REPRESENTING  SHORTFatLS  OF  THIS  UNIT  FROM  ITS  RHS  vatUE.  0022/ SCO 
C  THE  COLUMN  INTERSECTS  OAJECTIVE  FUNCTION  /TOEV/,  THE  03227*— 


C  _  CONBRT  UNIT  ROW  WITH  a  * 

C  *  -1.0. 

C 

lto  IF  (CSSW  .LE.OI  60  TO  120 

NVaR2  ■  NRNEt  NUI  28! « BLK • BLK • BLK I 
CaLL  COL  10 

CaLL  BaSIS(STR.NVRRl.NVaR2l 

NROW1  ■  OdNAME (7.11 

NROW2  ■  ORNRIE 17.21 

NNN  •  PLUS 

Vat  -  EFFI liCSSW-31 

IF  (CSSW  .E0.1I  VRL  -  STRNTHII 

IF  (CSSW  .EQ.2I  vaL  -  COST! I  3 

IF  (CSSW  .EQ.3I  VRL  ■  1.0 

CRLL  MaTWRTtvaU 

NROHl  •  N*NE(NUI12I,  11,12.131 


.0.  aNO  T*_  UNITING  ROW  WITH  032277— 

03227*0- 
00 227900 
3622*00- 
0022*10- 
0022*20- 

. . . .  _  _  0622*30- 

0022**0- 

0022*906 

3—223*3- 

0622*70- 

•  0.001  0022**00 

0022*90- 

0022906- 

00229106 

0022920- 
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/ 


t 

i 


MEMBER  N*"F  CONGfN 

MOM!  •  4U  .  OG 22 V 303 

NNN  •  PLUS  33 22V43« 

cm  tiumi.oi  o ojjvs*. 

N«r»W2  •  MN6I  NUI  2BI.NUI  251  ,RLK,tlK|  3022T*3w 

NNN  •  NEG  332237,.'. 

CALL  NAr-HHl.OI  JsK.i'fiJ 

C  0 022 tVJ- 

c  if  longealls  are  to  E  c  wideled,  construct  a  column  vectoow^jj,, 

C  REPRESENTING  LONGfALlS  Of  THIS  UNIT  FROM  ITS  RMS  VALUE.  Hit) »J- 

:  combat  unit  nun  kith  a  - 1 . c .  and  t*  uniting  row  with  3323323., 

c  a  -i.o.  3023433., 

C  3u2j3oj 

123  If  I  CL  Sri  .IE. 31  03  TO  19  JJ2I0>.„, 

nvar2  •  NiNUNumi.fliK'SiK.aiKi  wuj^u 

can  COUO  0023u?J4 

can  rasisi str.nvari.nvarei  00233*33 

NAOwl  •  0«NANf<7,ll  3021343., 

NRUW2  •  0AN4NEI7.2I  0023133., 

NNN  ■  PIUS  03231 103 

V»L  •  E  •  FI 1 ,CL S4-  >1  03231*33 

If  ICISw  .EQ.lt  vai  •  STRNTHCII  •  0.001  00*311*3 

If  ICLSw  .63.21  yat  •  COST!  1 1  00231*3* 

If  ICLS3  .60. J I  yai  •  1.0  00231SJ* 

can  natwrtivali  00*11*33 

NAOwl  ■  NAME! NUI 121.  1 1. 1  2. 1  SI  302.fi  73- 

NR0W2  ■  BLK  .  0u211tt3* 

NNN  •  NEC  30231933 

CALL  MATWRTII.OI  00232003 

NR0W2 .  ■  NaNCINUI21l.NUl29l.0LK. BUI  0023*13* 

CaLL  NarMKTIl.OI  *  00*32233 

C  00232303 

C  002124*3 

cccccccccccccecc:ccccc:cc:ccccccccccccccccccccccccccccccccecccceccccccccjo*j2s*j 

C  03232o3* 

C  002 J 2  73* 

C  NEXT  CONOat  NODULE  TYPE  002>2I0* 

C  00232403 

10  CONTINUE  *'  00233003 

C  0023110* 

C  Uu42vj 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCC0023330j 
C  03233403 

C  03*j133* 

RETURN  "  ‘  03213o0* 

C  00233733 

END  0023 Jo** 

sOrrOOt  iNf  I  VIM  TrfC !  K  J  J  UU77TJ77 

C  0023*000 

C  CUNGEN  6  JUNE  72  OJiitlOJ 

C  0323.2*3 

C  FORTRAN  IV  SUBROUTINE  TO  DETERMINE  IN  WHAT  USER  SPECIFIED  UNIT  0023433* 

C  MIK/RATI7  CONSTRAINT! SI  .  IF  ANY  ,  COMBAT  UR  SUPPORT  UNIT  0023*-.** 

C  TYPE  KJ  APPEARS  0023.*** 


0.001 


If  ICLSw  .16.31  07  T9  19 

NVARJ  «  NANEINUI2II.RLK.BLK.BLKI 
CALL  COUO 

CALL  AASISISTR.NVAR1.NV4A2) 

NAOwl  •  DttNANEI7.il 

NRUM2  •  ORNANE 17,21 

NNN  ■  PLUS 

VAL  •  EIFII.CLS4-3I 

If  ICLSw  .EQ.lt  VAL  •  STRNTHItl  • 

If  ICLSW  .63.21  VAi  •  COST! 1 1 

If  ICLS4  .60.3 1  VAL  •  1.0 

CALL  NATWRTIVALI 

NKOwl  ■  NANEINUI12I,  11,12.  1)1 

NRDW?  ■  BLK 

NNN  •  NEC 

CALL  NATWRTI  1.01 

NADW2 .■  NANCI  NUI  21I.NUI 291 , BLK.bIkI 
CALL  Nart.RTIl.OI 


NEXT  CONOAT  NODULE  TVPE 
CONTINUE 


CONGEN 


JUNE  72 


COMMON  /DESCRP/STRNTHI  7691  ,9TM| 7601 .COST!  7631 
COMMON  /MIX/UMIXSW.NNIXFS.MI  XE SHOO, 31 ,  (MIXES 1 1001 
COMMON  /THRMIX/MXIND,  1IMMIXI  101 


OO*!**** 
3323  »3j3 
002J4oJj 
0023473J 
332 348*3 
002144** 
0023  lOkiD 


/ 


1(M(I  NAME  CONGER 


c 

c 

c 

m 

C 


RE 41  HUES  002i>2«9 

INTEGER  Oil  9021»>9 

002J**9w 

DMMXhE  EllfANAL  I0TMI  I0*N  IIEICATION  NUMBER  OE  IMIS  UNIT(RJ190*.»>».>9 

0 Qinlis) 

IOTN  •  OIMUJI  002JAR3., 


C 

c 

c 

c 


20 


10 

C 

c 


c 

c 

c 

c 

c 


c 


OiWoIm 

SEARCH  ANRirt  M|iri.l|«es  in  SEE  IN  what  mu  SRtCIF ICATICNS  9921*0.^ 
IE  ANI  IMIS  mil  ARREARS.  STORE  ANV  ARREARAGES  IN  INTI  AMfOl  UE3321AI-J 
ARRAT  IIMMIlllOI.  STORE  THE  NUMBER  OE  M|*ES  IN  90«A*29r 

WHICH  IMIS  UNIT  ARREARS  IN  VARIABLE  MIINO.  U021*lww 

002 J**0w 


MIINO  •  0 
INOEI  •  0 

/OO  10  I  •  I.NMIIES 
INOEI  •  INOEI  ♦  1 

IE  I  IMliESI  IN0MI.E3.0i  GO  10  10 

IE  IIMIIESI  U3EH.NE.I0TMI  CO  TO  20 

MIINO  *  MIINO  •  I 

MMNIIIRIINDI  •  I 

GO  TO  23 

CONTINUE 


0 02i»>ww 
002J**WW 
602i*l0w 
OdllMM 
0021*50., 
©021/000 
OOZiTlOo 
002l723o 
00217199 
0021  MO  J 


RETURN 

INO 

tunnromr  ■  sowar 


00217>wJ 

00217*9/ 

002i77iw 

kjOitl'tjj 


CONGE N  B  JUNE  T2 

THIS  IS  A  SUOROUT I Nf  SUBPROGRAM  WHICH  IS  CALLED  CRCE  EROM 
THE  MAIN  ROUTINE  EONGEN  TO  GENERATE  THE  LOGICAL  SUB-maTRI* 

UE  COLUMN  VECTORS  THAT  RFRRISCNT  THE  SURRORT  UNITS  OE  A  FORCE 
MODEL. 

COMMON  /AGG/ AGGRSU, NAGGR . AGGR CTf  TSOI • I NOAGCi  I NNAGG 1  20. 2 1 , AGL  ART 
COMMON  /ALRHA/NUI  151 
COMMON  /BET/STfl.LGL 

COMMON  /OE SCAR /STINT Ml  7*01  ,OTM<  7*31 , COSH  7*01 
COMMON  /0EW  I  AT/CSS'4«CL  S'W  i  SR  SSM«  SRLSMtSF  SSWtSFLSM 
COMMON  /GRi)UP/GARSW,GAO'IB|  7*01  tlGMOURI  760,21 
CCMN3N  /MII/UM I  ISM. NN| IF  S. Ml  IE  SI  100, II , IM I  IF  SI  1001 
COMMON  /NAHES/NVARl,NV4R2,NAOWl,NROW2,NNI,NNN 
COMMON  /NCQN/NCON  ( *01 , R  F  SCONI fcl 
COMMON  /OOJS/OSN1MEI  7.2I.NORJ 

COMMON  /REOFAC/CvJEFI  BCOOI.R  JCOFFIBOCOI  ,NANE,NBN/ 

COMMJN  /HE  JTOI /T1LRSN,TOLSI2  3SO, Jl ,NTOLS, ALRTVR 

COMMON  /resolu/ncommt.nsurrt.nfram.nrramu 

COMMON  /SIGN/NEG,RLUS,2FRU,MLR,FREE 

COMMON  /SSL/SOVTTRI  7001  , SRSRERI 7001 , SRLRER I TOO I , SESRER I  TOO  I , 

•  SFLRERI730) 

COMMON  /TMRHII/MIINO, I IMMIII  101 

INTEGER  AGGRSW.AGGRGT 
INTEGER  GRPSW 

INTEGER  NEG, PLUS,  ZERO, BLR.FREE 
INTEGER  STn.LGL 
INTEGER  OB.NAME 
INTEGER  TULRSM 


0921*009 
992A*lJJ 
3321*20/ 
00211  Mo 
0 /2l#*9.s 
23  1 90 21*  So./ 
0021/oOj 
9021*70/ 
0321**9/ 
3024*109 
332119// 
032)1199 
3021V2O0 
00i>9iJJ 
3921V*0/ 
0021V  JO j 
99241*9/ 
3021/109 
0021 **ou 
902 IV 10/ 
vU2*J0w./ 
002*0109 
09 2*92// 
332*0)9/ 
002*0*99 
002*9 >// 
002*0*99 
002*0799 
032*3*w/ 


! 


MEMBER  Nt«(  CUNGEN 

httcc  A14TVP.RESC3N  Ob2«bV04 

INTEGER  014  33241./3J 

INTEGER  CSSM.CLS4.S*SSM.S*LSM,  SfSSM.SfLSM  GW.  1 13.# 

imcti  vdvivp  owawj j 

IfH  MIKS  0J«A i>Jj 

INTEGER  UM|«SM  OWaI.Uj 

OWAl  SJw 
0W.AAJ4 

|f  ThEAE  ARE  N  I  SUPPORT  UNITS  IN  THIS  NOOEl.RETURA  CONTROL  w02a1TG„ 

U  POMGCN.  OWAIJJ.# 

dut*lVJj 

INSUAKl.CJ.OI  RETURN  UU2A2JJ.. 

INI  •  NANI  •  I  W2A2144 

t ijiSiiJJ 

ONf  COLUMN  VECTOR  IS  GENERATED  AO*  C*CH  Of  NSUPRT  SUPPORT  UNIT 


|f  THERE  ARE  Nl  SUPPORT  UNITS  IN  THIS  MOOE l , RETURN  CONTROL 
IU  POMGCN. 


If  TNSUPKl .EJ.OI 
{POINT  •  NANI  •  I 


RETURN 


TYffS  042.2  Aw.# 

G3aA2>3w 

03  10  I  •  I. NSUPRT  JWA2 bJ« 

IJINO  •  0  U6(W  1^. 

JJ*A2«J. 

PREPARE  Ih«  01  r, ITS  Of  THC  OTN  NUMBER  Of  THIS  0G2A2A3* 

SUPPORT  UNIT  TYPE  OWAJW* 

fOK  USC  IN  RUM  ANO  COLUMN  NAMES.  G«#»AJ Iww 

W<#2A>  2\iJ 

II  •  I  ♦  NCORIT  *  OWAiiwU 

CALL  BNK30GI0IMI  III,  II. 12. Ill  OJ/AJaj.# 

33243*9* 

CENT* A  TC  THE  NAME  Of  THIS  COLUMN  VICTOR  NV  2  CALLS  TO  0U2.J»l#w 
fUNCTION  NAME  TO  CONCATENATE  A  CHARACTERS  MH I  Cl*  ARE  MASSEO  Uw  ...Jlww 
AS  CALL  INS  PARAMETERS.  J32A»B3* 

002040* 

NVAKI  •  NAMHNUI2il.il. 12.111  J02Aaoow 

NVAR2  •  RL<  OJrAaIJ* 

0G24420U 

ENTER  THIS  COLUMN  INTO  THE  LIST  Of  NOOEL  COLUMNS  RV  A  CALL332.4JJ* 
TO  SURRUJTINE  CULIO.  OJOAaww 

33244  >9* 

CALL  COLIO  ou2.44wj 

34244193 

ENTER  THIS  COLUMN  INTO  THE  AOVANCEO  START  BASIS  BV  A  CALL  332aa»3. 
TO  SUBROUTINE  BASIS.  3u244VJ.» 

4*24 >044 

CALL  BASISISTR .NVAR1 .NVAR2I  J424>109 

342**2 44 

ENTER  THE  STRENGTH  Of  THIS  SUPPORT  UNIT  INTO  ALTERNATIVE  992. >*44 
OBJECT  I VE  FUNCTION  /If  STRN/  BV  A  CALL  TO  fUNCTION  NAME  TO  j\,i  ,.»A44 
EORM  THE  OBJECTIVE  fUNCTION  NAME. ANO  A  CALL  TC  SUBROUTINE  0W«>>4* 
MAIURT  TO  44111  THE  MA  Tfc|  I  COCffICIENT.  442*>  bww 

THIS  OBJECTIVE  fUNCTION  IS  THE  SUM  Of  THE  STRENGTHS  Of  «R.LJuiA>/ww 
CURA  AT  N'ljuits  ANO  SUPPORT  UNITS  IN  A  fURCE.  002.  *494 

THE  COEf PIC IENT  IS  SCALEO  IN  1000S.  9*2  0  4** 


NROMl  •  Ol4lMETl.il 
N40M2  ■  OOnAME 11.2) 
NNN  •  PLUS 

CALL  RATmATI STRNTHI  1 1 


l/IOCO.I 


ENTER  THE  STRENGTH  Of  THIS  SUPPORT  UNIT 


IE.  992.41^ 

9*2  0  2*4 
iJItkJJJ 
90  2 . 6  I  oo 
33244294 
J9«All>44 

002*  »449 
J9t »b*vw 

INTC  ALTERNATIVE  344..k^ 


NCNSCA 

c 

m 

m 

c 

c 

c 

NAOMI 

MO«] 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

15 


<5 

15 


CONCCN 

OSjfCIIVf  FUNCTION  /TSSTAN/  SV  CALLS  TO  NA«C  AND  **ATMAT.  TUJ 

THIS  OAJfCTlVF  FUNCTION  IS  THC  SUM  0*  T Hf  STAIN&ThS  OF  ALLJdU*** 


SUFFOAT  UNITS  IMA  FOACC . 

TM(  COEFFICIENT  IS  SCAKO  IN  1D0DS. 


OSNAMCn.il 

OSNAMCO.21 


CALL  MATMATIST'NThI  II 


l/ICOO.I 


CNTCA  T  Hf  COST  01  THIS  SUFFOAT  'INIT  INTO  ALTFANAT I  VC 
OBJECT I  VC  FUNCTION  /TFCOST/  SV  CALLS  TO  NAFf  AND  MATmIT. 

this  osjcctive  faction  sums  thc  cost  of  all  ccmbat 
NODULES  and  SUFFOAT  UNITS  IN  A  FOACC. 


NAOMI 

N40M2 


OSNAMCU.il 

0SNAMEU.2I 


CALL  MATMATICDSTI  II 


II 


CNTTA  THE  COST  OF  THIS  SUFFOAT  UNIT  INTO  ALTERNATIVE 
OSJCCTIVE  FUNCTION  /TSCOST/  SV  CALLS  TO  NANI  AND  MATmAT. 

this  object i vc  function  sums  thf  cost  of  all  sjffoai 
UNITS  S  IN  A  FOACC. 


NAOMI 

NAOmJ 


•  OSNAMCU.il 

•  0SNAMCU.2I 


CALL  MATMATICOSTIII 


II 


«*«/<.»  AJJ 
JMjWuvw 
OJ/WIv. 
OJuTtUJ 
hJJmTjJJ 
Ouj«Tauj 
JOUTSJj 
It.. 
(QT.II.. 
JwUTJJ* 

CC2A400J 
OwJASlwj 
>UJ«.SAJ- 
OOJMSAUw 
JJ2A IM. 

illtltOI 
uJUST*. 
JD2*  4*U 
002mS AUU 
UUlNVUv* 
JJUVU* 
WU/NVJOu 
MJAFIJJ 
UJUVMUJ 
JwUSfelJ 
JUUVAJ. 
AAJJ24STJ* 
Uv2*AS0J 
Mtf2*tVjJ 
JJJAUUJJ 
JJ2> JIO. 
JJOJ20J 

OCJlUMOw 
jJjaJSw. 
■wltwtJ. 
vO  JX.  TOw 


MHICH  THIS  SUFFOAT  UNIT  HAS  A  FOSITIVC  HfOU  I  Al  MINT . 

(INCLUOINS  THIS  SUFFOAT  UNIT  TVFC- 1 1  FOA 
*  INTCASCCT  A  NODCL  AOM  FOA  CACH  SUFFOAT  UNIT  TVFC 

THC  OIGITS  01  THC  NUMft  IJtNCCMSTI  OF  CACH  SUFFFOAT  UNIT 
FACFAACO  FOA  USC  IN  THC  AOM  NANf .NANC.AOMlO  AM)  MATMAT 
AAC  CALLFO. 

THC  TVFCS  OF  ALL  ThC  SC  AOmS  IS  THF  SAM|  AND  IS  VAAIASlC. 

IT  IS  usuallv  /Less  THAN  OA  COU/L/  OA  E O';* L /  .1.1.. 

/AT  LEAST  as  MANY/  OA  /flACTLV  AS  MANV/  SUFFCAT  UNITS 
AS  SFCCIFIFD  SV  ALLOCATION  AULES.  KjMfVCA,  NC  MATTER  MHAT 
THC  TVFC  SFFCIFICO  SV  VARIABLE  ALATVF,  IT  IS  /COUAL/  IF 
ANY  DEVIATIONS  AAC  TO  SC  HOOCLCO.  Th(  MATA|K  COEFFICIENTS 
AAC  FOSITIVC  AIOHACMCNTS  MCCFT  FOA  THC  COfFFICICNT  IN  THf 
AOM  VCCTOA  COAACSFONOINC  TO  THIS  SUFFOAT  UNIUI-IN  MHICh 
CASC  IT  IS  >1.0  •  FOSITIVC  Af  Qultf  MCNTIHCAf  TH  AfQUl  ACMCNT  J^|5  JSDj 

IS  ASSUMED  TD  S f  LFSS  THAN  l.OI.  JJISOVU.. 

OO/iiOOw 

CAIL  AJUNFMI,  IFOINT.IFTI.  Jl|  JOJSllwv 

IF  (IFTI.NE.OTMim. AND. I  JINO.EO.il  CO  TO  23  OJ/>i*vJ 

IF  IIFTI.NC.OTMUIII  CO  TO  2S  CJ/S1AG* 

JJ2>Uvv 

J  •  AJCCTIJ1I  Ow/tiSJ. 

IF  III  .CQ.JI  I J I  NO  •  1  0*2>1»m* 

CO  TO  IS  332SIT0. 

J  •  II  9*2>1 SO* 

Jl  •  OTMI  III  JJJUtJs 

CALL  SAU0CIJI.JI.J2.J1I  OJO/tOv 

JJ2»«  U. 

NAOMI  •  NAMflNUI2ll.JI.J2.Jll  U.Wll. 

NM0M2  •  SLA  (N//>2  M/J 

NNI  •  ALATVF  v.DMt. 


<s&st 
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I 


AfHSC*  wm  CJSitS 

»f  isissri.ee. 1.0*. s*LS«.cr.i.o«.sf ism.ci. t.OA.sfis*.ct . n  «ni>M 
CALI  AJril) 

If  I  II  .19. Jl  CO  »0  >9 

c 

SNN  •  HUS 

vu  •  cotf iiaoisi i 
co  n  «o 


>0 


I* 

c 

♦  0 

c 

c 

c 

# 

m 

c 

c 

m 

•% 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 

1*0 


SSS  •  sec 

If  I  IJls9.t0.i  I  G1  to  4t 
V«l  •  1.0 

gj  to  «o 

ir  te  ir  MiAoisn.ee. i. "i  co  to*** 
val  •  i.o  -  com  iajisi  i 

CALI  HIT  WAT  I VAl I 

it  in  .u. j.isc.i jiNo.eo.oi  co  to  n 

It  OieilSCt  IS  AilOriCO  I*  Of Kf AIL  os  AfOillfH'stt  f c 
SyAAMf  visits  t»  CJ'Ilt  snoot  IS  ISO  AT  SUAAOMt  USITS 

to*  isot.nju  iiLttntios  *ucf  com  ic  i/stst 

I  tULASri  •  II  ,  ISO  If  IS  AMtICUllA  L  list  A  ISO/CA  UAAf  A 

Dtmim  is  iLL'urn  mo«  tsis  *fetiiA|Hfsi 

COO Alt  IHIS  SOAAUAf  OSIt 

COLUS*  VfCTOl  to  I  OA  1  COLUHNS  A(  AA|  Sf  ST  ISC  A4I|NU« 
OCVlAf IOSI SI.  If  I  •  J  ISO  |  »f O'M  Aft  S3  1.S0  tOLfAISCf 

s*v  at  ccseiitfo  foi  tHtt  oifcnsu  cof f f iciest,  this 

COSSlCTIJS  IS  *v  4  -1.0  COfffICIfSt 
IS  A  SMC  IlL  S(J)f  L  AOri.  t  Hf  S*«f  Of  tNlS  AOW  IOfSt|A|fS 

tHf  cte  ff  it  test  (is  aMiCH  tot  /  use  e  it  mono  «»  using 

t»«e  I  ASS  j  SUM  At.  tHf  4-  C  HAM  *  C  t  f  A  L  I  **  I  f  (A  tHf  tiff 
Of  IhC  siri  SIS!  AHOHlaltt  I  Hf  utf  U*  OIH  SjMdt  HfAf. 

inf  coemcust  it  cesraAttc  tr  calls  to  Auuiisrt  sist, 

AOrilO  AS)  SltriAI. 

I AO ISl  •  lAOISt  •  | 

If  ltOLAtri.sr.il  CO  to  1* 

09  1*0  IVJt*  •  I.StOLt 
CALL  «JiSA«ll.l*)t*.|ll'Jif| 

If  I  (Atl.st .III. 0«.il. SI. J«l|  CO  TO  140 

If  ItOLtllSOI  l./I.Lt.O.O.ANO.TOLtllSOt  I.9I.LI.0.0I  CO  TO  |* 

SAOst  •  Slsf  |  1 1.  1 1(  I  t.S'lt  1*1 1 
NAUril  •  SIAM  Jl.il,  Jl.sutlll  I 
SSI  •  HUt 
CALL  AOrilO 
sss  •  sre 

CALL  Hit riA  1 1  I  .  01 

cost  ISUl 
CO  to  it 


cccccccccccctccc:cccc'.cccc:cctccccccccccccccccccccccccccc(cccccccccccccc 

c 

* 

C  If  US  I  I  H|«  Sftc If ICAIIOSS  A At  ALlOMfO  IS  tHlS  "JAIL  At 

:  At  l  .  AS  J  I  •  ISIS  S’fAAOAf  UNI  I  AAAfAAt  IS  OSf  (A  HOAf  H|«fS. 


3-141 4— 
9-*41o-. 
Oui>lTu- 

3wl>l*v- 

301 

331>Jl>9. 
Oslt j 1 jj 
33 1>J*-. 
33l> i)v. 
93149*-. 
33l»J 4-. 
39149*.. 
0014)19. 
03*49*9. 
UU*»> 99w 
U4l>*0.. 
9314*1  — 
0 0*>«1  — 
00l»«9Jv 
09c  — 
93«>« 49. 
30 l>«wd. 
0.*1«/.J 
30*>«A— 
U0l>«49. 
3.<4>— . 
90*4»19. 
Cul»4i39 
93*449— 
33* >4* — 
33*4443. 
9J*4>  — . 
Oril»>/9. 
391.9*9. 
00144V— 
Jril>4— - 
9014*10. 

OUl> slwv 
39**49.. 
39 1***3- 
9914*4 9. 
90*>«*.. 
39  l>»/9. 
0.«>*A— 
301>s*9- 
9914/30- 
331 >  f 1-- 
3314/13- 
03*  »  f  Jvv 
3-*>/«-- 
3314/49- 
93l>/4— 
391 4  /  /— 
—  *>  f *.. 
0O19/V-. 
33/4*3-. 
-v*  >4  tv. 
9-*  ***.. 
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NEMICR  NME 

C  _  COUPLE  THIS  SUPPORT  UDI!  COLUMN  VECTOR  TO  TMIT  (THOSE  I  WoRPO,. 

:  COLUMN  yfC  T  3N  ( S I  REPRESENTING  THf  MlllfSI  IT  A  >1.0  0  J2>2*v4 

C  COCFPIC  ICNT  IN  ONE  OR  MOM  COUPLING  MOOEt  ROWS.  4624O0* 

C  602>4*  04 

Z  IF  NO  UNIT  MIMS  AM  ALLOMCO  AT  ALL. SKIP  THIS  XllUlv* 

C  SECTION.  002>AA4u 

C  402MP44 

23  IP  (UMUSM.Ni.il  CO  TO  AO  OwCMiOu 

C  Ov2>* 13m 

:  OP  If*  NINE  IN  MOu  MANY  UNIT  M|l(S  IMS  SUPPORT  4v*>V.«- 

C  UNM"  APPEARS  I  VARIANCE  Nifl.Ol.tNO  IP  THIS  IS  362*V4w4 

C  C..UTEA  THAN  0.  TH*  SEQUENCE  NUMMAISI  OP  THAT  042*9*66 

C  I  THOSE  I  HUES  (STORED  IN  ARM  V  MPNIII.  0 

C  4w2>**v.< 

CALL  INNIKSIIII  302*9  TOO 

C  4o2*NA06 

C  IP  THIS  SUPPORT  UNIT  DOES  NOT  APPEAR  IN  ANV  442*9*46 

:  MIR  SPECIFICATIONS. SKIP  THIS  SECTICA.  302*4006 

C  _  .  062*613.. 

IF  (MIINO.CQ.OI  CO  TO  AO  402*4244 

:  002*0 406 

C  CENERATE  A  <1.0  COEFFICIENT  IN  A  COUPLING  6v2*.*4j 

:  ROM  FOR  EACH  OF  THE  Mil  NO  UNIT  HUES  IN  WHICH  402*4*64 

C  THIS  SUPPORT  UNIT  APPEARS.  THE  COUPLING  ROMS  60 2*6*06 

C.  .  ARE  TYPE  ■  AND  ARE  IDE NT IPIEf  AV  THE  SEQUENCE  462*0104 

C  NUHRER  OP  THE  Nil  ANO  THE  INTERNAL  ID  NUMMR  44a»4A36 

C  IK J  NO.  •  UNCONOTI  OF  THIS  SUPPORT  UNIT.  0.'**0v04 

C  602*1006 

00  90  J  •  1. NIINO  062*1164 

C  466*1206 

CALL  RRK10GI  IIHHIKIJI.JI.J2.J1I  _ _  .  _  002*1404 

C  002A I *00 

NR0M1  ■  NAME  IN'JI  22I.JI.J2.JSI  442*1*46 

NR0M2  •  NANEINUI SSI.  II.I2.ISI  062*1*00 

NNI  •  RLK  9O2A1T00 

CALL  ROM  10  UWaAIAOO 

NNN  -  NEC  ..  . . . .  002*1  VO  J 

CALL  NATMRTll.OI  0 02*2000 

:  002*2100 

90  CONTINUE  002*2200 

C  002*2 iOu 

C  002*2*00 

CCCCCCCCCCCCCCCC:CCCCCCCCCCe:CCCCCCCCCCCCCCCCCCCC£vCCCCCCCCCCCCCC*CCCCCCOO2*29u0 
C  602*2*00 

C  INTERSECT  MODEL  ROM  /TFSTRL/. WHICH  PLACES  AN  UPPER  LIMIT  Oo2*2TOw 

;  CONSTRAINT  ON  THE  TOTAL  STRENGTH  OP  COMAAT  MOCULES  ANO  00 2*2*46 

:  SUPPORT  UNITS  IN  A  PORCP.TmE  MATRIR  COfPFICIENT  IS  THE  002*2*06 

C  STRENGTH  OP  THIS  SUPPORT  UNIT  ANO  IS  POSITIVE. THf  EVPE  OP  462*4664 

C  ROM  STPSTRL/  IS  ». ROUTINES  NAME .ROM  10  ANO  MATURE  ARE  CALLC0442*4146 

C  THE  C9EPPICIENT  IS  SCACIO  IN  IOOOS.  002*4206 

C  002*4400 

AO  NAOMi  •  NANEINUI 291 .NUI  I  *1  .NUI 2AI .NU(2*I T  00<»4«00 

N40M2  •  NAMEINUI2M.NUI2ll.tLK.SlRI  002*1*44 

CALL  AASISILCL. NAOMI. NRQ22)  402*4*66 

NNI  •  RESCONI 1 1  44«*4?46 

CALL  ROMIO  O02«4AOO 

NNN  •  PLUS  U 02*4*00 

CALL  MATMRTISTRNTHIII  I/1COO.I  0 02*066 


CON GEN 

COUPLE  THIS  SUPPORT  UNIT  COLUMN  VECTOR  TO  TMIT  (TMOSCI 
COLUMN  VCCT34ISI  REPRESENTING  TmC  NlllfSI  RV  A  *1.0 
COCPFICICNT  IN  ONE  OR  HORf  COUPLING  MOOCL  ROMS. 

IE  NO  UNIT  M|«(S  ARC  ACLOMCO  AT  ALL. SKIP  THIS 
SECTION. 


IP  IUMUSM.Ni.il  GD  TO  AO 


CALL  INN  I IS  I  III 


OMUHINE  IN  HOu  MANY  UNIT  M|I(S  THIS  SUPPORT 
UNM"  APPEARS  IVARIASLE  NHNOI.4NO  IP  THIS  IS 
G'.EtTCA  THAN  O.TH*  SEQUENCE  NUMAfRISI  OP  THAT 
ITHOSCI  HUES  (STORED  IN  ARRAY  IIPHIII. 


IP  THIS  SUPPORT  UNIT  DOES  NOT  APPEAR  IN  ANY 
Nil  SPECIFICATIONS. SUP  THIS  SECTICA. 


IF  IMIINO.EQ.OI  GO  TO  AO 


GENERATE  A  *1.0  COEFFICIENT  IN  A  COUPLING 
ROM  FOR  EACH  OP  THF  NIINO  UNIT  NIIES  IN  WHICH 
THIS  SUPPORT  UNIT  APPEARS.  THf  COUPLING  ROMS 
ARE  TYPE  ■  ANO  ARE  IDENTIFIED  AY  THf  SEQUENCE 
NUN Af A  OE  THE  Nil  ANO  THE  INTERNAL  ID  NUNACR 
IK  J  NO.  *  UNCOMATI  OF  THIS  SUPPORT  UNIT. 


03  90  J  •  t. NIINO 

CALL  ARKSOGI  IINMUIJI.JI.J2.J1I 

NAOMI  ■  NANEINUI 22l.Ji.J2.J4l 

NR0M2  •  NANEINUD9l.lt. 12.191 

NNI  •  RLK 

CALL  ROM  10 

NNN  •  NEC 

CALL  NATwRTI 1.01 

CONTINUE 


! 


REmrcr 

C 

• 

c 

c 

c 

c 


NAME  CONGEN 


NRrtwl 

NA0Y2 

call 

NNI 


INTERSECT  MODEL  now  /TSSTRL/.MHICH 
CONST** INT  ON  1M*  ICl  At  strengia  ok 
fORCf.TH  •until  COEFFICIENT  IS  THE 


00 2*41 Od 

places  an  upper  imr  002*<ugj 

SUPPORT  UMTS  IN  A 

STRENGTH  C*  This  SUPPDA002*4<.0.< 


UNIT  AND  IS  POSITIVE.  THE  Type  of  ROM  /ISSTRL/ 
ROUTINES  NAN*  t«1t|0  AN3  MAIMRT  ARE  CALLEO. 

THE  COE  Ff 1C  If  NT  IS  SCALED  IN  1030S. 

•  NANEINUI 29I.NUI  2 91 .NU ( 29 1 .NUI29I I 

•  NINEI  t‘J(??<<NUI21l<tiLfc«6lKi 
RASISILU  .NAJmI  .NRDM2 1 

RESCJNI  tl 


IS 


O02»4>OJ 
002w4k Yd 
002wWd0 

0o2«n«j^ 
0  02fc«*90.» 

002to00v 

OOVujIOv 

3vEAS2^ 


C 


» 

C 

c 

C 

c 


c 

c 

c 

c 

c 

c 


CALL  RUMIO  002o>00j 

CAlw  NAIM4TI STRNTMl  1 1  I  /IOCO. I  602«S40U 

002k»>Gv 

INTERSECT  NODE  L  ROW  /TEC  STL  /  .WHICH  PLACES  AN  UPPER  LIMIT  OOfu 
CUN'TAAINT  ON  THE  TOTAL  COST  OE  COHMT  MODULE  $  AND  SUPPORT  002k>/0d 
UNITS  IN  A  FORCE. THE  MATRIX  COCEftCIENT  IS  THE  CCST  OF  THIS00ik>ew^ 
SUPPORT  UNIT  AND  IS  POSITttfE.TH*  TYPE  OE  ROW  /TECSTL/  IS  'vu2o>«J^ 


ROUTINES  NANE.RO/IO  AND  MATMRT  ARE  CALLED.  0U2kkU0u 

w02kkl00 

NROMl  ■  NANEINJI29|.NUnSI.NUI12l(NUI28ll  002t*200 

NAOW2  •  NANE(NUl2NliNUI21liRLKiRLKI  0026oJ0d 

CALL  RRSISILGL .NROMl. NRQM2I  002kokjj 

NNK  •  RESC0NI4I  0u2kw»jJ 

CALL  ROrflO  0G2*k*^ 

CALL  MATURTCJSTI  II  II  002»kTu.« 

OOJoo 90d 

*  INTERSECT  MODE l  ROM  /TSC SU / .WHICH  PLACES  AN  UPPER  LIMIT  002oo9jj 
CONSTUINT  ON  THE  TOTAL  COST  OE  SUPPORT  UNITS  IN  A  FORCE.  002../00.. 
THE  MATRIX  COEFFICIENT  IS  THE  COST  OP  THIS  SUPPORT  UNIT  xjUuIIj* 

AND  IS  POSI  IIVE.HOUTINFS  NAME. ROMO  AND  MATMRT  ARE  CALLED.  OOfb  itji 

002k  T*Ou 


NROMl  •  NAMEIN J( 2 91 ,NU(  261  .NUI  12I.NUI2AI) 
NRUM2  ■  M4NE<NiM29l,NU(21I.AL«.»LK| 

CALL  6ASISILGL.NR1MI.NROM2I 
NNK  •  RESCUNI 6  I 
CALL  R04ID 

CALL  MATMRT ICOST I  II  II 


00 2b  /*</* 

002bT5JJ 
002m /kOv 
002b77dd 
002k TfcOd 
002kf VOG 


002k#00<t 
002b# 10j 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC002b*<00 


IP  this  support  unit  IS  INCLUDED  IN  any  aggregates  IMHICM 
FUR  EXAMPLE  may  CORRESPOND  TO  FUNCTIONAL  ARES  Of  SUPPORT  I 
ENTER  IIS  UNIT  STRENGTH  AND  COST  INTO  AGGRt GATE  STRENGTH  AND 
COST  ROMS.  THE  NAME  A NO  TYPE  OF  THE  ROMS  IS  7ARI/CLE  IV 
AGGREGATE. 


IF  I AGGRSM.NE .11  SO  TO  200 
CALL  INAGGI  OTMllii  | 

IF  I INOAGC.EO.OI  GO  TO  200 

DO  210  i  •  I. IMOAGS 

Jt  •  NASO  INNASSIJ.il. I  I 

J2  •  M4 .* |  INN1SGI J. 11.2  I 

NAOMI  >  NAME  I J  1  • J2.NUI 2* I .NUI 291 C 


OOloe iJj 
Om2w 4400 
0c2o«SOd 
o02p*kuw 
G02oM  IjJ 

002t>« 

002# Yw JJ 

002*910 J 
002#»2ov 
OOibMSvd 
002kV«jj 
002k9>00 
002*9»0d 
002kV70d 
Ov2»9kO^ 
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MEMBER  MANE  CONGEN 

_.  _.  NROW2  ■  NAME!  NUI 27 1 , BIX , ALK, 6LK1  _ _ ...  0026*900 

CALI  BASISUGL  .NAOMI, NAOW2I  002700GU 

MMX  ■  MASK!  INNAGGU.2t.il  .  .  ...  .  .  ...  0027010m 

CALL  ROM  10  00270200 

NNN  -  PLUS  _  0027030 0 

CALL  MATMRTI  STRNTHI I X  I / 1 009.0  )  002704mm 

NAOMI  ■  NANEIJ  1.J2.NUI  12I.NIM26I  I  ... . . .  00270500 

NR0M2  •  N4iEINUI29|.4U,9U,ALKI  0027060m 

CALL  BASIS! LGL, NAOMI, N*nM2l  ..  .  00270700 

NNK  ■  MASK!  INNASGU.2I ,21  00270710 

CALL  AOMlO  00270800 

CALL  HAlMAII  COST  1 1 « I  I  00270900 

210  CONTINUE  .  ...  .  ... _ _  0027100o 

■  C  00271100 

C  0o27120G 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC002713mm 
C  0027140m 

C  00271)00 

C  ENTER  SPECIFIED  A1TAIBUTE  OF  THIS  UNIT  TYPE  INTO  UNIT  0M2716MM 

:  GROUP  CCJNSTAA INT  IF  THIS  CONSTRAINT  IS  ALLOMEC  AT  ALL  00271700 

C  IGRPSM  •  l  OR  21  ANO  THIS  UNIT  TYPE  IS  INCLUOEO  IN  ONE  00271800 

C  OF  THE  TMO  GROUPS  OF  UNITS  CONSTRAINED  0027190m 

__C  .  _  _ _  00272000 

200  IF  IGRPSM. EQ. 2 1  GO  TO  BO  00272100 

_ _  IF  IGAPSM.NE.lt  GO  TO  110.  _ _ _  _ _ _ .....  00272200 

C  0027230m 

C  TOTAL  CONBAT  UNITS  VERSUS  TOTAL  SUPPORT  UNITS  0027240m 

C  00272500 

INOEX  ■  2  _ _ _  _  _  0027260m 

GO  TO  100  0027270M 

..  C  .  _ _ 00272600 

C  USER  OEFIHABLE  GROUPS  00272900 

.  C  00273000 

10  INOEX  •  1  0027J10U 

•S  IF  I IGROUPI INOEX, It. EO.Ot  GO  TO  110  .  _  00273200 

IXX  -  OTMI IXI  00273300 

IF  I  IXX.EQ.  IGROUPI  INOEX ,  1)  I  GO  TO  100 _  00273400 

INOEX  ■  INOEX  ♦  1  00273500 

GO  TO  BS  0027360m 

C  00273700 

100  IGX  ■  IGROUPI INDEX, 21  _  _  00273BG0 

IF  IIGX.GE.4t  GO  TO  110  0027390m 

VAL  •  STRNTHIIXI  _ _ _  _  00274000 

IF  IIGX.E0.2i  VAL  •COSTIIXI  0027410m 

IF  IIGX.E0.3t  VAL  -1.0  00274200 

VAL  -  GROUP! I NOE XI  •  VAL  00274300 

NNN  •  NEC  0027440M 

IF  IVAL.CE.O.Ot  NNN  •  PLUS  0027450m 

VAL  •  ABSIVALt  _ _  _  .  _  00274600 

C  002747mm 

NAOMI  ■  NANEI NUI l6t,NUI27l,NUI24l,NUI30lt  0027480m 

<  NA0M2  •  NAME!  NUI2SI,8LK,«LK,BLKI  0027490m 

CALL  BASISILGL, NAOMI ,NA0M2t  0027500m 

NNX  •  NEC  00275100 

CALL  ROM  10  _ _  002752mm 

CALL  NATmRTIVAL  t  Mm27)30j 

C  00275400 

C  00275500 


I 


MEMBER  NAME  CONGEN 

:ccccccccccccccccccccccccccc:cccccccccccccccccccccccecccccccccccccccccccoo2/5ooo 

C  002757u0 


c 

c 


c 

c 

c 

c 

110 


c 

c 

m 

*0 

150 


c 

c 


002753JO 

GENERATE  STRUCTURE  FOR  SUPPORT  UNIT  DEVIATIONS  FRC«  RFOU l REMENT002 7 j9j0 

as  oErivp;)  nr  allo:ation  rijleSi  and  frcm  targets  as  defined  by  002/0000 

RMS  VALUES.  THIS  LATTER  TYPE  OF  DEVIARION  IS  CALLED  FORCE  J027o10j 

DEVIATION.  0027o200 


LIMIT  ROW  FOR  REQUIREMENTS  SHORTFALLS 


J027 bibb 
0027&40.J 
0u2  7</600 


NROW1  «  NVARl 

IF  I SRSSW.L E .0 )  GO  TD  150 

NR0W2  *  NAMFIVUI ?  7 1  *  NUI  2  8 ) » NU ( 25  I  »BL  Kl 

NNX  *  MASK!  SDVIYPI  I  ),  1  I 

CALL  ROWID 

NNN  «  PLUS 

CALL  MATWRTI  SRSPERI II  I 

LIMIT  ROW  FOR  REQUIREMENTS  LONGFALLS 

IF  ISRLSW.LE.OI  GO  TO  160 

NR0W2  *  NAME! NUI 271, NUI 21I,NUI25I  ,BLK) 

NNX  *  MASKI  SD VTYP ( I  I • 2  I 
CALL  ROW  ID 
NNN  *  PLUS 

CALL  MATWRTI  SRLPERI II  I 

ROW  ,  THE  RHS  VALUE  OF  WHICH  IS  THE  TARGET 


00276o00 
0J2/67O0 
0027  Lui'jj 
0027o90u 
JU2  7  70 Jo 
00277 lOu 
002  7  720o 
00277 JOu 
0027740J 
002/ 

0027760^ 
0027770J 
00277UJ J 
002  7  7900 
0u27B00j 
00 2 7U 100 
0027020^ 
0027a 30 j 


Oj2  7d4JJ 


160  IF  (SFSSW.LE.O.AND.SFLSW.LE.O)  CO  TO  165 
NR3W2  »  NAMEINUI  15I.BLK,BLK,0LK) 

NNX  «=  OLK 
CALL  ROW  ID 
NNN  »  PLUS 
CALL  MATWRT 11.31 
C 

C  LIMIT  ROW  FDR  FORCE  SHORTFALLS 

C 

165  IF  I SFSSW.LE.O I  GO  TO  170 

NR0W2  «  NAME I NUI 15).NU(2B)|NU(25)«BLK) 

CALL  BASI SI LGL .NR0W1 . NR0W2 I 
NNX  *  MASKI  SDVTVP 1 11,3  I 
CALL  HOW  ID 
NNN  -  PLUS 

CALL  MATWRTI  SFSPERIII  I 
C 

C  LIMIT  ROW  FOR  FORCE  LONGFALLS 

C 

170  IF  I SFLSW.LE.O)  GO  TO  1B0 

NT0W2  «  NAMEINUI 1 5 > . NUI 21 1 .NUI 251 .9LKI 

IF  I SFSSW.LE.O)  CALL  B  A$l  SILGL .NROWl .NR0W2 I 

NNX  «  MASK!  SOVTVPI I  1.4  I 

CALL  P.OWIO 

NNN  ■  PLUS 

CALI  MATWRTI  SFLPFRII)  I 
C 

C  REQUIREMENTS  SHORTFALL  COLUMN  VECTOR 


0G2/B50*. 
002 736  Jo 
002 7d 700 
002 73300 
002  73  70 j 
002790JO 
00279 lOo 
00279200 
0027930J 
002/94oo 
002795JU 
O0279OUJ 
00279700 
0027930./ 
002 79V0J 
002d00uw 
0O260 100 
00230200 
OU2a0 juo 
0028040* 
J023o5t/  j 
0o2du6Jj 
G023o 700 
OuweOajj 
o023 J9v* 
0G231ooj 
Oo2d 1 l*o 
00231200 
00231 JOJ 


24l 


* 


MEMBER  NAME  CONCEN 

180  IE  ISRSSW.LE.O.OR.SRSSW.GE.4I  GO  TO  120...  ... 

NVAR2  •  NAME! NU( 27», NU( 2 8) ,8LK,BIK» 

CALL  COHO 

CALL  BASIS! STR ,NVAK1 ,NVAR2I 
NAOMI  -  OBNAME! 7*11 
NR0W2  »  OBNAME 1 7»  2 1 

NNN  -  PLUS  ...  . 

VAL  *  STRNTH! I  XI*  0.001 

IF  I SRSSW.EQ. 2 1  VAL  -  COSTI I  XI 

IF  (SRSSW.EQ. 3)  VAL  *  1.0 

CALL  MATWRT ( VAL I 

NR0M1  >  NAME!NU(?8I, II, 12,13) 

NR0W2  «  BL< 

NNN  >  NEC 
CALL  MATWRT 11.3) 

NR0M2  «  NAME!  Nil!  2  7) ,  NU(  28),NU(2SI,6LK) 

CALL  MATWRT (1.0) 

IF  (AGGRSw.NF. 1)  GO  TO  120 
IF  ( INDAGG. EQ. 0)  GO  TO  120 
DO  220  J  «  1 , INDAGG 
J1  -  MASK!  INN AGS ( J, 1 ) , 1  I 
J2  >  MASK!  IMNAGGI J, II , 2  ) 

NROWl  «  NAME(J1,J2,NU(28),NU(29)) 

NR0W2  ■  NAMC(NU(27),NU( 27) ,NU( 13)  ,BLK) 

CALL  BASISILGL,NRUW1,NR0W2)  _  _ 

NNX  >  FREE 
CALL  ROW  ID 
NNN  •  NEG 

CALL  MATWRT!  STRNTH! I X I / 1000.0  I 
NROWl  *  NAME! J 1, J2,NU( 12  )  ,NU(28)  I 

NR0W2  *  NAME(NU(29),NU( 27) ,NU( 13)  ,BLK|  _ 

CALL  BAS1SILGL, NROWl, NR0W2) 

CALL  ROWID 

CALL  MATWRT!  CUST!IXI  I 
220  CONTINUE 
C 

C  REQUIREMENTS  LONGFALL  COLUMN  VECTOR _ 

C 

120  IF  (SRLSW.LF.O.OR.SRLSW.GE.AI  GO  TO  130 
NVAR2  -  NAME  I  Nil!  2  7  I ,  NU  (  2 1 )  ,BLK  ,BLK) 

CALL  COLID 

CALL  BASIS! STR, NVAR1.NVAR2) 

NROWl  ■  OBNAME I  7, II 
NROW2  ■  OBNAME! 7,2) 

NNN  -  PLUS 

VAL  ■  STRNTH! IX)*  0.001 
IF  I SRLSW.E0.2)  VAL  ■  COST!  I  XI 
IF  ISRLSW.EQ.)>  VAL  -  1.0 
CALL  MATWRT! VAL ) 

NROWl  *  NAMEINUI28I, II,  12,131 

NROW2  -  BLK 

NNN  •  PLUS 

CALL  MATWRT ! 1.91 

NROW2  -  NAME!NU(27I,NU! 21I,NU!25),BLK) 

NNN  •  NEG  . 

CALL  MATWRT! 1. 01 
IF  IAGGRSW.NE.il  GO  TO  1)0 

IF  I INOAGG.EQ.OI  GO  TO  1)0 


00281400 
00281 30. 
00281600 
002617 0. 
00281800 
0028190. 
0028200. 
002o 2 lJw 

0026220w 

00282 30. 
00282*0. 
00x8230. 
0028260. 
0028270.' 
00xd28.. 
0028290. 
00283000 
0028  jU. 
0028320. 
0028330. 
002d 3*0. 
0020 330. 
0028360. 
00263  70 j 
00  2d  3  30. 
00283900 
3028*000 
J028410. 
0026*200 
0028*30. 
0026**0. 
0028*30. 
0028460 1. 
0026470. 
0028460. 
00284900 
0028300. 
0028510. 
0.28520. 
0028330. 
0028340. 
00265500 
00235x0. 
0028370. 
00  28  3d J. 
0028590. 

00203.0. 

0028ul. . 
0028x20. 
0G2do3.. 
0028640. 
0028x50. 
0028x60. 
Ob 2bo 70. 
0023x30. 
0028x90. 
0.2  WTO.).. 
0.2x710. 


dSir 


2k2 


i 


ooors#  *—  o  o  o 


MEMBER  NAME  CONGEN 

00  2)0  J  *  1  •  INDAGG 

J1  ■  MASK (  INNAGG!J,1I,1  ) 

J2  -  MASK (  INNAGGI J, 11.2  I 
NROWl  *  NAME! J 1 , J  2, NUI  2fl  I  «NUI 291 1 
NM0W2  -  NAHE(NUI27l,NU!27),NUim,BLK| 
CALL  BASISILGL,NRUW1«NRC1W2) 

NNX  *  FREE 
CALL  ROwlD 
NNN  *  PLUS 

CALL  MATWRT!  S  TKNTHI  I  X) /I  000.0  I 
NR OWl  =  NAME  (  J  1,  J  2,NUI  12 ) «NU(26) I 
NR0W2  «  NAME-(NU(29),NUI27),NU(13I,BLK) 
CALL  BASIS<LGL,NI10W1,NRJW2) 

CALL  ROW  10 

CALL  MATWRT!  COSH  IX  I  ) 

2)0  CONTINUE 

FORCE  SHORTFALL  COLUMN  VECTOR 

30  IF  (SFSSW.LE.0. UK.SFSSW.Ge. 4)  GO  TO  140 
NVAK2  ■  NAMEINU!  151, NU(  2  S3  , BLK, BLK) 

CALL  COL  10 

CALL  BASIS! STR.NVAR1.NVAR2I 
NROWl  -  Ob'JAME  (  7«  1 1 
NROW2  ■  OBW AME (7*2) 

NNN  «  PLUS 

VAL  ■  STRNTH! IXI*  0.001 

IF  1SFSSW.E0.2I  VAL  -  COSTIIXI 

IF  ( SFSSW.E0.3I  VAL  ■  1.0 

CALL  MATWRT ( VALI 

NROWl  -  NAMEINU 1281, II. I 2i 131 

NRQW2  ■  NAMEINUl 1 7 ) , 3LK  , BLK , BLK) 

NNN  *  PLUS 
CALL  MATWKTI 1.01 

NROW2  «  NAMEINUI15),NU< 28 ) . NUI 25 )  ,BL K) 

NNN  *  NEG 
CALL  MATWRT' 1.0) 

IF  ( AGGKSw.xE . 1 1  GO  TO  140 

IF  ( INDAGG. EO. 0)  SO  TO  140 

D3  240  J  *  1.IN0AGG 

J1  -  MASK!  INNAGGI J, II • 1  I 

J2  -  MASK!  INNAGGI J. II .2  I 

NROWl  «  NAME!  J1,J2, Nil!  281, NU125IJ 

NROW2  ■  NAMEINU!27),NUI 1SI.NUI13I.BLK) 

CALL  BASISILGL, NROWl, NR1W2I 

NNX  ■  FREE 

CALL  ROWIO 

NNN  «  NEG 

CALL  MATWKTI  STRNTH! IX) /1000.0  I 
NROWl  -  NAME! Jl,J2,NUI  12I.NUI2BII 
NMOW2  ■  NAME(NJ(29),NUI 1 5) ,NUI 1 31 ,81 Kl 
CALL  RASISILG., NROWl, NROW2) 

CALL  ROWIO 

CALL  MAlwRTI  COST  1 1 X  I  I 
40  CONTINUE 

FORCE  LOMGFALL  COLUMN  VfCTOR 


0028  72\jj 

0023  740k/ 
0028  770., 
002376JJ 
002877OU 
bb23  7  dCj 
Jw2«7Vuj 
0023  800(3 
0023d 10 j 
0u2332w0 
0023330., 
00283400 
002dU>0 J 
002d  d&Oo 

00233700 
0028dd0o 
002dd VoJ 
00289000 
0028  UOj 
00233200 
0023  V  300 
0028940k, 
0028950J 
00239 1>00 
0028  7  70o 
0023 7800 
002399OO 
0029000., 
0u*9JloJ 
002V0200 
0029J30. 
00i9040o 
0029070k, 
00290  6k/k, 
002907JJ 
002908OO 
0029090k, 
0029iOGo 
00291 loO 
00291*00 
30*9i OoO 
0029140k, 
00291 70. 
O0291 bo J 
00291 7 Ow 
00291300 
OGiVi VJJ 
00292OWJ 
Jw*9* lo j 
0029220J 
00292300 
00292400 
00.927 JO 
0029260b 
0029270b 
k,0.92bbb 
0u292Voj 


2U3 


MEMBER  NAME  CONGEN 

..140  IF  (SFLSW.LE.0.0R.SFLSW.GE.4)  GO  TO  10-- _  00*93000 

NVAR2  »  NAMEINUI  15),NU(  21)  ,BLK,Bt.KI  0029310J 

CALL  COL  10  ....  00*93 203 

CALL  BASIS(STR,NVAR1,NVAR2)  00*93300 

NR0M1  «  08NAME  ( 7»  1)  _  ..  .  0029340w 

NR0M2  -  OBNAME 17*2)  00*935 00 

NNN  -  PLUS  _  ...  „  ...  OOt  93633 

VAL  «  STRNTHI IX)*  0.001  00*93703 

IF  (SFLSM.EQ.2)  VAL  «  COSTItX)  00*33800 

IF  (SFLSM.EQ.3I  VAL  *  1.0  00*93900 

CALL  NATWRTIVAL)  00*9*000 

NROWl  •  NAME! NUI 281 .11.12.13)  00294103 

NR0W2  «  NAHEINUI15)*BLK, BLK. BLO  _  _  00*94*33 

NNN  -  NEC  00*9430o 

CALL  MATMRTI 1.01  00*94400 

NR0W2  «  NAMEINU(15),NU(21),NU(25),BLK)  00*9450o 

CALL  MATMRTI 1.01  00*94600 

IF  ( AGGRSW.NE.  1 )  GO  TO  10  002947uo 

IF  < INOAGG.EQ.OI  GO  TO  10  _  00294B0O 

03  250  J  -  l.INOAGG  00294900 

J1  >  MASK!  INNAGGUill.l  )  00295000 

J2  -  MASK!  INNAGGI J» 11.2  I  00*9>103 

NAOMI  ■  NAME! J 1« J2.NUI  28  I • NUI 29) )  _  00295*03 

NA0M2  •  NAME! NUI 27 1. NUI 151 <NU(13),BLK)  00295300 

.  CALL  BASISILGL. NROWl, NR0M2I  _  00*95400 

NNX  -  FREE  00*93500 

CALL  ROM  10  00295600 

NNN  -  PLUS  00295700 

CALL  MATMRTI  STRNTHI  IX  I  / 1000.0  I  00293800 

NAOMI  ■  NAME! 1 1, J2, NUI 12  I  ,NUI2S) )  002959 33 

_  NR0H2  •  NANEINUI291.NUI  15)  ,NUI13»,BLKI  _ _ _  _  J029o003 

CALL  BASISILGL, NRUM1.NR0M2I  00*96130 

CALL  ROW  10  00296200 

CALL  MATMRTI  COST! IX)  I  00*96303 

2  50  CONTINUE  ....  _  .  G029o400 

C  00296533 

..  C  .  .  .......  00295600 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC03296/33 
C  ...  00296803 

C  03*9o90j 

C  NEXT  SUPPORT  UNIT  TYPE  00297000 

r  00*97103 

_.10  CONTINUE  ..  _  _  ...  00*97200 

C  00*97303 

C  00297403 

CCCCCCCCCCCCCCCC:CCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC00*97503 
C  00297600 

C  69297703 

RETURN  00*97600 

C  03297933 

999  WRITE  (6,1)  I  00296000 

1  F3RMATI  1H0,  llMSUPPOXT  UNIT  ,I4,4|M  REOUIRES  MORE  THAN  100  PERCENT  00*96103 
•OF  ITSELF)  00*96200 

STOP  0001  03*98303 

C  00296430 

_ EN2 _ 09296533 


SUBROUT I Nt  INMIXSIKJ)  00*96033 

C  00*98730 


•(EMBER 

C 


NAME 


CONGEN 

CONGEN 


6  JUNE  72 


C 

C 

C 

c 

c 

c 


20 


10 

c 

c 


FORTRAN  IV  SUBROUTINE  TO  DETERMINE  IN  WHAT  USER  SPECIFIED  UNIT 
Ml  {/RATIO  CUNS1 RAINTI SI  ,  IF  ANY  ,  COMBAT  OR  SUPPORT  UNIT 
TYPE  KJ  APPEARS 

NOTE  -  THIS  IS  THE  SAME  INMIX  AS  THE  ONE  THAT  ACCCMFANYS 
SUBROUTINE  COMBAT 


COMMON  /OESCRP/STRNTMI  7601  . DTM 1 7601 .COST!  7601 
COMMON  /MIX/UM IXSd.NMIXES.MIXESI  100 . 31 . 1 H I XE S I  ICO  I 
COMMON  /TMPMIX/iMXINO,  I  IMMIXI  101 

REAL  MIXES 
INTEGER  DTM 


DETERMINE  EXTERNAL  I DTMI  IDENTIFICATION  NUMBER  OF  THIS 
IDTM  «  DTMI KJ  I 


SEARCH  ARRAYS  (MIXES. MIXES  TO  SEE  IN  WHAT  MIX 


0024380J 
00296900 
00299  OOO 
002991JJ 
002VY20  , 
0029930J 
0029940- 
002  393-j 
002  99&'JsJ 
00299  7— 
00299o0J 
00299900 
00  js.  J  JOj 
OOiJJljJ 
00 3002 JJ 
00  3003 jj 
00 30 0903 
UNIT! KJ IOC  3 00 300 
Os.3  J  J60  j 
00  3s .  J  7  00 
0030060s. 

SPECIFICATIONS  U030090- 


IF  ANY  THIS  UNIT  APPEARS. 
ARRAY  1 1 MM  I X ( 101. 

WHICH  THIS  UNIT  APPEARS  IN 

MXIN9  «  0 
INDEX  *  0 

DO  10  I  »  l.NMIXES 
INDEX  =  INDEX  ♦  1 
IF  MMIXCSI  INDEX  I  .  EO.O)  GO 

IF  (  IMIXESI  INDEX). NE.10TMI 
MX  INI)  -  MX1ND  ♦  1 
I  IMMIXI MX INDI  -  I 
GO  TD  20 
CONTINUE 


RETURN 

END 

WRWfTWF~rNTC5'<  ror*rr 


STORE  ANY  APPEARANCES 
STORE  THE  NUMBER 
VARIABLE  MXIND. 


IN 

OF 


INTERMEDI ATEjJjjIOJj 


MIXES  IN 


TO 

GO 


10 

TO 


20 


10 


00  30 1 luO 
0030120s. 

0s.3s.13j>. 

00301400 
00301>00 
0030160 j 
JJjJi/OJ 
OUJU1BOU 
0030190- 
Os.3o2  JOj 
0030210- 
0030220. 
003023 Jj 
u- 302403 
UO302S0O 
0030260s. 
Js.  30270s. 
0030260- 
0s.3O29jj^ 
0030300 0 
OOOOjIO- 
OjJ«.32d  j 

Os.3s.33  0  J 

OOiOJtUO 
00303300 
0j3o3o— - 

COMMON  /AGG/AGOMSW.NAGGR.AGGRGTI  750)  .1NDAGG.  INN  AGO  I  20.2)  >AGLA9(25)0o3Jj/«.j 
INTEGER  AGGRSM.ACGRGT  0030360- 

0030390- 

INOAGG  *  0  JO  Js.ts.0 j 

INOEX  ■  0  0J3041O- 

IAGGR  •  0  J 03O>.20- 

0-3-430- 

INOEX  •  INDEX  ♦  1  0 33-.<.J- 

|F  UGGRGTI  INDEXI.GT  .999. OR.  AGGRCT!  INDEX). LE.O)  GO  TO  2D  OJJ  J-.3J- 


CONGEN 


6  JUNE  72 


THIS  SUBROUTINE  DETERMINES  IN  WHAT  SUPPORT  UNIT  ACGREGATE(S) 
THE  INPUT  ( IDTM I  SUPPORT  UNIT  IS  TO  BE  INCLUDEO. 
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iEMBEP.  NAME  ClNGEN 

C  ... 

IF  (AGGRCTI INDEX). NE.IOTfO 
INOAGG  •  INDAGG  ♦  1 


GO  TO  10 


20 


I AGGR  «  IAGGR  ♦  1 
IF  ( l AGGR .GT .N AGGR  I 
INNACGI INDAGG* X, 1 )  < 
INDEX  *  INDEX  ♦  1 
INNAGGI  INDAGG* 1,21  < 
GD  TO  10 

END 


RETURN 

AGGRGTI INDEX) 
AGGRGTI INDEX) 


G0304600 
00304 TOw 
00304800 
003u4  70o 
00305000 
00305100 
J0505 20o 
0030330w 
u03o54jo 
Uu30i5o0 
OOJOSoOO 
00 3057 OJ 


“SlTliroDTTfJt  TiiLkNC  OOOObboJ 

TOLKNC  IS  A  FORTRAN  IV  SUBROUTINE  SUBPROGRAM  THAT .WITH  THE  00305900 
ASSISTANCE  OF  SEVERAL  UTILITY  ROUTINES, GENERATES  MATRIX  COLUMN  003ub00o 
VECTORS  WHICH  REPRESENT  PERMISSIBLE  UPPER  AND  LOWER  PERCENTAGE  OOiOblOO 
DEVIATIONS  FROM  REQUIREMENTS  FCR  SUPPORT  UNITS  BY  COMBAT  MCOULES0030620 0 
AND  SUPPORT  UNITS  ( FROM  INDIVIDUAL  ALLOCATION  RULE  COEFFICIENTS) Jo 306 30 j 
REQUIREMENTS  FOR  SUPPORT  UNITS  BY  COMBAT  MODULES  ARE  STORED  IN  003jo40j 
THE  FIRST  NANZ  WORDS  OF  FOMGEN  COMMON  ARRAY  COEFI6500).  MAXIMUM  0Q3o650o 
ALLOWABLE  DEVIATIONS  BELOW  THESE  Q030b60o 

REQUIREMENTS  IN  TERMS  OF  DECIMAL  FRACTIONS  OF  THOSE  REQUIREMENTSJ03uo700 


AND  MAXIMUM  DEVIATIONS  ABOVE 

EACH  REQUIREMENT  ARE  STOREO  IN  ARRAY  T0LSI2350.3) 

REQUIREMENTS  FOR  SUPPORT  UNITS  BY  SUPPORT  UNITS  ARE  STOREO  IN 
THE  WORDS  NANZ41  THROUGH  NANZ+NBNZ  OF 

COMMON  ARRAY  C0EKG500)  .  MAXIMUM  DFVIATIONS  PERMITTED  BELOW 

THESE  REQUIREMENTS  AND 

MAXIMUM  DEVIATIONS  PERMITTED  ABOVE  EACH  REQUIREMENT  ARE  STORED 
IN  COMMON  ARRAY  TOLSI 2350,3) 

COMMON  INTEGER  VARIABLE  TOLRSW  IS  A  SWITCH  THAT  CCNTROLS 
WHETHER  OR  NOT  REQUIREMENT  TOLERANCE  IS  TO  BE  PERMITTED  AT  ALL 
IN  A  MODEL.  IF  T0LRSW*0  SUBROUTINE  TOLRNC  IS  NOT  CALLED  FROM 
THE  MAIN  PROGRAM  ROUTINE  FOMGEN.  IF  TOLRSW-1  TOLRNC  IS  CALLED 
ONCE  FROM  ROUTINE  FOMGEN. 

WHEN  TOLRNC  IS  CALLEO.ONE  MODEL  COLUMN  VECTOR  IS  GENERATED 
FOR  EACH  PERMITTED  DEVIATION  ILOWER  AND/OR  UPPER)  FROM  EACH 
POSITIVE  SUPPORT  UNIT  REQUIREMENT.  IF  FOR  A  POSITIVE  RE¬ 
QUIREMENT  A  PERMITTED  DEVIATION  IS  0.0  •  NO  COLUMN  VECTOR 
IS  GENERATED. 

THE  STRUCTURE  OF  THE  COLUMN  VECTOR  REPRESENTING  EACH 
PERMITTED  REQUIREMENTS  DEVIATION  IS  SPECIFIED  BY  THE  CCMMENT EO 
INSTRUCTIONS  OF  THIS  SUBROUTINE. 

COMMON  /ALPHA/ NUt 351 
COMMON  /BET/STR.LGL 

COMMON  /DESCRP/STRNTHI 7601  ,DTMI 760) ,COSTI  760 ) 

COMMON  /NAMES/ NVARl,NVAR2,NROWl,NROW2,NNX,NNN 
COMMON  /REQFAC/C3EFI  BOCO ) , K JCOEF I BOPO) ,NANZ,NBNZ 
COMMON  /REQTOL /TOLRSW, TOLSI 2 350,  3)  ,NTOLS» AIRTVP 
COMMON  /RESOLU/NCOMBT,NSUPRT,NPRAM,NPRAMU 
COMMON  /SIGN/NEG»PLUS.ZERO*BLK .FREE 

INTEGER  TOLRSW, ST R, PLUS, ZERO, BLN, OTM.ALRTYP, FREE 
REAL  LWTOL 


003u6B0o 
00306900 
0030  700 j 
OJiitllO  j 
00307 ZOO 
003J730J 
003J740J 
00307500 
0o3o760J 
003w7700 
0030760O 
003u79oj 
00308000 
00308 10U 
.  00  3j820j 
0030830w 
0030640J 
00308500 
003u66oo 
00308700 
003 jObOO 
003O690J 
00 309000 
003J91OJ 
00309200 
00309300 
00309400 
OO3J9500 
00309600 
O03J97OO 
00  309 80 j 
00JO990O 
OOilooOo 
003i JlOo 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOOJlOZOO 
:  0031o30o 
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member  name  congen 

examine  ea:h  if  the  ncdmbt  combat  modules  that  may  possibly 

REQUIRE  SUPPORT  UNITS  J  BELOh. 

IPO  INI  *  1 

03  10  I  *  1, NCOMBT 
IX  *  OTMI 1 1 

CALL  BKK30GI  IX, II, 12,13) 

EXAMINE  EAG-i  OF  THE  NSUPRT  SUPPORT  UNITS  POSSIBLY  REQUIREO  BY 
COMBAT  M JOULE  I  ABOVE. 


Jj 310400 
O3  310  5v  j 
0031 JOJj 

0031w7u0 
00 3. JBJj 
00310900 
0 j jilOOO 
00  J.. 10J 
OU3U20J 
00Jii30j 
00311  433 
003  UsiO 


CALL  KJUNPKI  1«  IP'HNT.IPTX.JI  00311653 

If  {  IPTX.NE.DTMI  I  II  GO  TO  1C  0Jj1i7jJ 

00311603 

IF  SUPPORT  UNIT  J  IS  NOT  RFCUIRCO  BY  COMBAT  MODULE  1,00  NOT  00311903 
ATTEMPT  TO  GENERATE  ANY  TOLERANCE  HERE, LOOK  AT  THE  NEXT  SUPPORT  003i<003 
UNIT  TYPE.  0u312103 

00312200 

03  80  L  »  l.NTJLS  03312330 

CALL  K JUNPXI  2* L , I  XX, JXX  I  00312433 

IF  I  IPTX.NE.IXX.3R.J.NE.JXXJ  GO  TO  80  00312500 

003126 Oj 


ATTEMPT  T3  GENERATE  FIRST  ANY  PERMISSION  OF  DFVIATION  BELOW  0u3i2/0j 
THE  REQUIREMEN1  — GOf F ( IPOINTI-ANO  THEN  ANY  PERMISSIBLE  UPPER  OU312UOU 
DFVIATION.  00312303 

00313003 


C 


C 

C 

c 


03  30  K  -  1,2 

IF  NO  DEVIATION  IS  PFRM1 TTFO, DO  NOT  GENERATE  A  MATRIX  COLUMN. 

IF  ( K.EQ. 1. AND .rULS(L,2).LE.0.G)  CO  TO  30 
IF  I  K.EQ.2. AND. T3LSI L.3I.LE.O.O)  GO  TO  30 

A  PERMISSIBLE  OEVIATION  HAS  BEEN  DETEC  TED ,GENER AT E  A  CCLUMN 
VECTOR  REPRESENTING  IT. 

PREPARE  THE  NUMBERS  OF  THIS  COMBAT  MODULE  AND  SUPPORT 
UNIT  TYPE  (I  AND  J>  FOR  USF  IN  THE  NAME  OF  THE  COLUMN. 

CALL  BRK30GIJ, Jl, J2.J3J 

GENERATE  COLUMN  VECTOR  NAME  BY  A  CALL  TO  FUNCTION  NAME 
KX  -  NUI21I 

IF  (K.EQ.2)  KX  ■  NUC  331 
NVAR1  >  NAMEI  11,12, 13, NIM29II 
NVAR2  •  NAMEI  J 1,J2,J3,KXJ 

ENTER  THIS  COLUMN  INTO  THE  LIST  OF  MOOEL  COLUMNS  BY  A 
CALL  TO  SUBROUTINE  COLIO. 

CALL  COLIO 

IF  THIS  CULUMN  REPRESENTS  PERMISSIBLE  LOWER  CFVIATICN, 
ENTER  THIS  VCCT  33  INTO  THE  AOVANCED  START  BASIS  BY  A 
CALL  TO  SUBROUTINE  BASIS. 


00313 luw 
CIU315203 
00313333 
0031 iMOj 
00313530 
00313603 
00313733 
00313600 
00313903 

3351  *,333 

00314 103 
00314200' 
03 j143 J J 
00314400 
00314603 
0331*603 
3*3314  7  33 
00314800 
00314903 
00315000 
GU  31 5  lOo 
00315203 
OOiidGOj 
0031 340 J 
30315530 
0 0315033 

00315703 
03315305 
0051 >9 53 
00  316335 
OollolOO 


2^7 


MEMBER  MANE  CONGES 

IE  IK.E4.il  CALL  BAS1SC STR.NVARl ,NVAR2) 


...  ....  00316204 

49j1»-»0J 

CONNECT  THIS  COLUMN  VECTOR  TO  THE  ONE  REPRESENTING  COMBAT  4v316603 
N03ULE  I— THE  ONE  REPRESENTING  ALL  REQUIREMENTS  FOR  SUPPORT^ jUSJj 


UNITS  BY  COMAAT  UNIT  1.  THIS  COUPLING  IS  BY  A  POSITIVE 
MATRIX  COEFFICIENT  IN  A  SPECIAL  MOOEL  ROW.  THE  COLUMN 
OF  REQUIREMENTS  TO  WHICH  THIS  COLUMN  IS  COUPIFC  HAS  A 
-1.0  COEFFICIENT  IN  THIS  RCW.  THE  ROW  TYPE  IS  •.  THE 
MATRIX  COEFFICIENT  HERE  IS  THE  RECIPROCAL  OF  THE  MAXIMUM 
DEVIATION  ALLUWED-TOLSIL • 2 )  OR  TOLSIL.3I.  GENERATION 
OF  THE  COEFFICIENT  IS  BY  CALLS  TO  ROUTINFS  NAME, ROW ID 
ANO  MATWKT. 


-  NAME! I  It  12. IStNUIZOI  I 
•  NAME! J 1<J2,J3«NUI33)  I 
PLUS 


OwilwoGQ 
09316704 
393*»604 
04316900 
4431  7444 
443*7133 
00317244 
3041/334 
443 17*04 
00317343 
04317643 
044*7744 
0431 7404 
00317944 
44313004 
03314104 
04316204 

GENERATE  A  COEFFICIENT  IN  THE  MODEL  ROW  FOR  SUTPORT  UNIT  J.w44*«444 
THIS  COEFFICIENT  WILL  REDUCE  THE  REQUIREMENT  FOR  SUPPORT  UNI03J16604 
J  BY  C0M3AT  MOOULE  I  IF  THIS  COLUMN  VECTOR  REPRESENTS  34316504 
PERMITTED  LOWER  DEVIATION  FROM  THE  REQUIREMFNT— IN  THIS  04316044 
CASE  THE  COEFFICIENT  «  -COEFI I  POINT  I . I F  THIS  CCLUMN  REPRE-  04316704 
SENTS  UPPER  DEVIATION,  THE  COEFFICIENT—  ■  COEFIIPOINTI  — 

IS  BY  CALLS  TO  ROUTINES  NAME, ROWID  AND  MATWRT . 


NR0W1 
NRUW2 
NNX  » 

CALL  ROWID 
NNN  ■  PLUS 

val  ■  l.o  /  tols;l,k+ii 
CALL  MATWRTI VALI 


NR0WI 
NR0W2 
NNX  ■ 

CALL  ROWID 
t  NNN  »  PLUS 
IF  IK.EQ.II 


NAMEINUI28I,  Jl,  J2,J3> 
BIX 


PLUG 


NNN  «  NEG 


CALL  NATWRTICOEFI IPOINTI I 


c 

c 

30 

80 


10 

c 


CONTINUE 
CONTINUE 
(POINT  - 
GO  TO  20 
CONTINUE 


(POINT  ♦  1 


44314644 
00316944 
00319400 
00319144 
043*9244 
0U319J04 
40319604 
00319504 
04319600 
03319704 
44319644 
00319904 
00320004 
44324104 
30320200 
09320300 
33320604 
303 24544 


CCCCCCCCCCCCCCCCCCCCCC:CCCCCCCCCCCCCCCCCCCCCCCCCCeeeCCCCCCCCCCCCCCCCCCCC00324640 


C 

c 

c 

c 

60 


EXAMINE  EACH  OF  THE  NSUPRT  SUPPORT  UNITS  THAT  MAY  POSSIBLY 
REQUIRE  SUPPORT  UNITS  J  BELOW. 

(POINT  •  NAN/  ♦  1 
00  50  I  •  1. NSUPRT 
IX  •  OTMI  I  ♦  NCOMBT  I 
CALL  6KK30GIIX,I1, 12,131 

EXAMINE  EACH  OF  THE  NSUPRT  SUPPORT  UNITS  POSSIBLY  REQUIRED  BY 
SUPPORT  UNIT  I  ABOVE. 

CALL  KJUNPXI1, IPUINT.IPTX, J| 


00320743 
443*4644 
94324904 
00321000 
00321104 
333212UJ 
4032 1 304 
003216 04 
093*1 >04 
993* IwOw 
09321749 
34321644 
04321904 
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MEMBER  NAME  CONuEN 

IF  I  IPTX.NC.OTMI  l*'<:OK9TH  CO  TU  SO 
C 

C  IF  SUPPORT  UNI  T  J  IS  NOT  RECUIREO  BY  SUPPORT  UNIT  1,00  MOT 

:  ATTEMPT  10  GtNf  MATE  ANY  TOLCkANCE  HFRE»LOOX  AT  THE  NEAT  SUPPUKT 

C  UNIT  TYPE. 

C 

00  *)0  L  »  l.NTOLS 
CALL  KJUNP<<2,L,t  KX.JIXI 
IF  I  IPt K.NE .!«(.. 1R.J.NE . JKKI  CO  TO  00 

C 

C  A I  TEMPT  TO  GENERATE  FIRST  ANY  FERMISSICN  OF  DEVIATION  BELOW 

C  THE  KEOUMCNF^I->;OEFI|FII|NT)-ANn  THEN  ANY  PERMISSIBLE  UPPER 

C  DEVIATION. 

C 

00  TO  K  •  1,2 
C 

C  IF  NO  OE VIA T ION  IS  P£RW|TrEO,00  NOT  GENERATE  A  MATRIX  COLUMN. 

c 

IF  IR.E3.  I.  ANO .TUL SI  L,  2  I .LF.O.OI  GO  TO  TO 
IF  l<. 60.2. AND. TUISCI, JI.LE. 0.01  GO  TO  70 

C 

C  A  PERMISSIBLE  DEVIATION  HAS  BEEN  OF  TEC  TED ,GF NER ATE  A  COLUMN 

C  VECTOR  REPRESENTING  IT. 

C 

C  PREPARE  THE  NUMBERS  OF  THESE  SUPPORT  UNIT  TYPES  II  ANO  Jl 

C  FOR  USE  IN  THE  NAME  OF  THE  COLUMN. 

C 

CALL  BRKSDGU,  Jl, 22,2)1 

c 

C  GENERATF  COLUMN  VECTOR  NANE  BY  A  CALL  TO  FUNCTION  NANf 

C 

XX  •  NUI 21 I 

IF  IR.Eq.2l  KX  -  NUI SOI 
NVAR1  •  NAMEI 1 1, 1  2, 1  3, NUI 241  I 
NVAR2  -  NAME I21,2?,23,KXI 
C 

C  ENTER  THIS  COLUMN  INTO  THE  LIST  OF  MOOfL  COLUMNS  BY  A 

:  CALL  TO  SUBROUTINE  COL  ID. 

CALL  COL  10 
C 

;  IF  THIS  COLUMN  REPRESENT  PERMISSIBLE  LOWER  OFVIATION, 

:  ENTER  THIS  VECTOR  INTO  THE  AOVANCEO  START  BASIS  BV  A 

C  CALL  TO  SUBROUTINE  BASIS. 

C 

IF  IK. 10. II  CALL  BASIS<STA,NVARl,NViR2l 


22**20*4 
0022* lw. 
*2*22224 
*4*<k*22 
20*2242* 
2* 

dO* *2/44 
GO %i 2 MOW 
2v  *22**4 

w*4»4**4 

0**2*142 

v.iiWOv 

U4»R* *44 

0**2*404 
*G *2*344 
42*2**44 
*0*24/0* 
00*/ *BGU 
22A21V44 
*4*2  *024 
OOiRvlOU 
Ow >2*222 
o o*<m*oo 
00**4400 
00 *2 *>02 
*0*M4t>2* 
00*2* /Ow 
*0*2400* 

*4**4944 

00*2*004 
00*2  >100 
*4*2x4  j 
*0 *R>*2* 
00J**40u 
00*2*30* 
00  *<>•** 
0 0*24/04 

00*2*40* 
*0*2  >9*4 
UU*2t»0U* 
*2*2*1 0* 
***•*22* 
02 *2**4* 
*0*2*40)* 

*4>*o>44 


C 

c 

C 

C 


C 

* 

C 


C 


CONNECT  THIS  col 
UNI  I  I  —  »M«  ONF 
UNITS  BY  SUPPORT 
NATRIX  COEFFICIENT 
OF  AEOUlREMENIS  TO 
-1.0  CSEFFICIENT  I 
MATRIX  C0t*F|C IFNf 
DEVIATION  »LL1«ir- 
OF  THE  COEFFICIENT 
ANO  MATWMT. 


22*2**44 

UMN  Vf C TO*  TO  THE  ONE  RCPRf SEATING  SUPPOXTOD*** /*4 
REPRESENTING  ALL  K*gii|*fwrKTS  FCR  SUPPOAT *4*2*«24 


UNIT  I.THIS  COUPLING  IS  BY  4  POSITIVE 
IN  A  SPEC  I  * l  MOOFl  ROW.  THf  COLUMN 
WHICH  THIS  COLUMN  IS  COUPirD  HAS  A 
N  THIS  ROW.  THE  ROW  TYPE  IS  *.  THE 
HERE  IS  THE  RECIPROCAL  Of  ThF  MAXIHUM 
TOLSIL  ,21  0*  TOISIL.SI,  GENERAT ICN 
IS  BY  CAIIS  TO  ROUT  I  Nf  S  N*PE,*OWIO 


4**4*044 
*w**/0*4 
*4  *2 / 1 44 
20*2/222 
*4*2/ *04 
*4*« / 42* 
>0*2/ >24 
*4*2 /*42 

00 *2 //O* 
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iiu(«  nanc  conccn 

naomi  •  «a«mi.ii.o. » 
n*omc  •  nanmji.ji. jj.nuc  ni i 
nmi  •  nus 

CALL  *0X10 
**N  •  ALUS 

v*l  •  i.o  /  toisu.**ii 

CALL  MATmATIVAH 


oojxtooo 

03*4**33 
3*14*  JJj 
33  44*10* 

33*3**34 
OuJ4*Mvw 
03*30*33 

CCNfRAIC  A  CJfAMCIfNT  IN  TMI  MOOfL  «0M  *0*  SUAAORT  UNIT  J.33».*»04 
THIS  COtMICIfNT  4ILI  ArDUCf  THf  RfUUlRfMfM  ACM  SUPPORT  UN  IG3*<«  TwJ 
A  IT  COMAAI  NIXIlf  I  IT  THIS  COL  URN  VfCTO*  AfARfSINTS  Otl  tiiljj 

*C*N|ttCO  104**  Of  VIATICA  AKIN  tMf  RfOUIRf  NCM-- 1 N  THIS  Owj.XVUJ 
CASK  THf  CJfMICMM  •  -COfAl  I  APIS?  1 .1 A  THIS  CCLUNN  *CA*|-_  3J*3*J3w 
TINTS  II A  AM  9(  VI A  T  ION.  THf  CPA*  A  |  C  I  f  NT--  •  COIMIAOtNfl  — 

INCAf ASf  S  Inf  1(011*1 Nf ST  AO*  SUM  0*1  UNIT  3.  Cl NfAAT ION 
IS  *V  CALLS  TO  AOUTINfS  NAMf.ROMlO  A«0  NATMtT. 


C 

c 

TO 

*0 

c 


SO 

c 


NAOMI  •  NANIINUI  211.  Alt  3.JSI 
NAOMI  •  At* 

Ml  •  ALUS 
CALL  AOMIO 
NNN  •  ALUS 

ia  i«. co. u  n:c 

CALL  NATVATlCOf*!  l-'OINTI  I 


CONTINUC 

CONTINUC 

IAOINT  •  IAOINT  •  I 
63  TO  AO 
CONTINUC 


33*4*1*3 

wOl.vSv. 
v»M*3«A3* 
3. >3**3- 
Mb AAV A O* 
00*3*70* 
3**4Vt*w 
3313VS33 
00**3033 

3o>*3333 

OO«*0*0* 

33>>v*3w 

O0*iJ»33 

03**3*33 

3*3*0?** 

30*13*3* 

0O*3vV3i 

OOIAIOO* 

33*11133 


cccccccccccccccccccccccecccc:ccccccccccccceccccccccccccccccccccccccccccc33**iJ3* 


c 

c 

c 

c 


ACTUAN  CONTROL  T3  THf  NAIN  *OUT|Hf  AONCfN 


•(turn 
ISO 


00*1  IIUw 
Mill  *3* 
Mii.iiv 
llJlIAd. 
3O»|I0* 
Mihiii 

X*  it  Hit 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


luk*OUTINt  IMMlV 
CON  GIN 


A  3UN I  71 


UNI N| I  IS  A  13AIKAN  IV  SUAAOUTINC  SH8AAOGA4N  TlUl  WAV 
CCNCIAIC  COLUMN  vrCTOIS  Af  AACSANT  INf.  OfSIHO  OR  MCfSSAAV 
UNIT  N|ICS  MITHIN  A  AORCT.  I*  ANT  UN  I T  M|I(S  NAT  Af  K(A*(SCNTfO 
At  ALL  IN  A  N)9f L  <UN|I*M  •  II  SU**OUT|Nf  UN|N|I  IS  CAU(0  ONCf 
ARON  THf  NAIN  ROUT  INI  »0*GfN. 


CONNON  /AL*MA/A1I  SSI 
COMMON  /RfT/STA.LCL 

COMMON  /HI  I/UR I  AW.NN1  If  S.MIAASHOJ.St.INI  If  si  1331 
COMMON  /NANfS/NVA*l«  NVARf.  VAOMl  •  N<OM).  NNT  #  ANN 
COMMON  /SICN/NIC.ALUS.ITAO.tLK.ARff 


30***133 
0*3*I33« 
33**3*** 
>3  ****** 
*Vi*4>*.. 
33*14*0. 

MlllAI^ 

00**3V3v 

3*>lli*. 

ifllill). 

******** 

3*11113. 

«)lll»3* 
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mh»  comscm 


c 

imu). 

intcra  Mto.nui.fno.aia.Mtf 

>W  Aa  A  tCw 

IMMfcfa  UHH* 

IMltOf*  SI* 

AAaa  AM— 

*(*L  MlllS 

WWAAMOvW 

c 

c 

JjAA MiJ, 

c 

OaajwAW. 

it  n* uts. ro. oi  anum 

9w Ja«*«. 

c 

c 

um  ch«j*m  vrctn  is  crHfaatto  10  rmtsdi  (*o<  cr  ini 

W*AAM».a 

» 

miiks  usn  sMicinro  umi  mucs. 

Ww)A«  Iww 

c 

AAaAMwa 

IMOfl  •  0 

Aw  AA«W«w 

oo  to  i  •  i, Minis 

OOAASUWw 

c 

A9a a>1ww 

C*U  MOOOII,  ll.l/.ltl 

Atmt.. 

c 

wJAll.i 

c 

UMinif  ciX'iim  MiMf  m  can  in  ruKtrion  mm. 

AOAAAMww 

c 

JAIASS.J 

MVAII  •  MMf  iMUtitl'MOl  III, Mill  ISI.III 

OwAaawOA 

MVAit  •  Mill  I*.  1  MIMIO 

WA  A  A  A  Ia. 

c 

AjIAABA. 

c 

full*  IMIS  C01UMM  IMTO  IMt  1 1ST  0*  HOOtl  C0*UH  MANS 

AW  i  A  A  VWw 

c 

*v  a  cm  iu  suiaouiint  couo. 

Ow JamwAa 

c 

liwiiAl.i 

C All  COt 10 

AO i>»29* 

c 

• 

MAAAA*. 

c 

tatra  inis  Coium  lam  t»«  list  n>  camoioaii  fills 

A.IAAIA. 

c 

victim  sv  i  cm  rr  »u*anuTiMf  aasis. 

vA>) wSJ. 

c 

OCAaw*Ow 

CAll  «ASISISI*.MV4i|.».V*A?l 

vwAJ«fOv 

c 

aDIAam.. 

c 

sivi  moans  of  iMt  fiast  imib*  of  imis  «n. 

OWAAatAw 

imoch  •  iMOti  «  i 

AwAa/AwA 

<0 

IMOn  •  IMOtl  «  1 

9A  aA  t  AW ^ 

i*  iiNnmmm.fi.ci  co  to  «o 

WwiilAO. 

jy  •  IflMHIVJln 

9aAa  Da. 

CAll  aioogiji.ji,j;,jii 

UaaAIMU. 

c 

WWi  JIM). 

MA0M1  •  MAMtlMulf/l.ll.lt.lll 

AWnltw, 

Men}  •  NIUMUI  til. Alt  JI.JII 

A.aMI.« 

MMi  •  Ha 

Aw  a » taw. 

CAll  *0*10 

a-aaiaj. 

MM  •  flUS 

AW  A  A  A  «  A. 

CAll  MlM«lll|irS<|MOtltlll 

AAAAflA. 

c 

Aw  A  A#  A  A. 

c 

too*  A 1  1  OSSIIIC  •ffta  AMO  invf*  10.1*1*0  C*  IMIS  (Mtav 

wa»AAa. 

c 

Of  HIS  UMil  M|I  SfICIf  ICAIIOM. 

). AaiIWa 

c 

wWaa ASW. 

If  Hl*f  SI  l*OM.AI. it. O.O.AMO. MtlfSIIMOM.SI.lt. 0.01  CC  tO  i 0 

wwASatw* 

M«0*|  •  KKIhJlr/I.II.IMII 

wAAIafO. 

**o*i  •  mimimui/mi.ai.j/.jii 

Al>AA»»0« 

Mil  •  AlUS 

Aw AA«Vw* 

cm  *u«n 

ww AA *WA. 

MM  •  MIC 

WWAA A  10. 

CAll  "lt«*M|.9l 

aaAAA... 

c 

wA  AAV  Aw. 
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MFMOER  NAME  CONCEN 
03  TO  29 

c 

t 

c 
c 

40 

c 

10 
c 
c 


CALL  SUBROUTINE  NIITOL  TO  GENERATE  ANT  USE*  SPECIFIED 
TOLERANCES  ON  THE  ENTRIES  OR  THIS  UNIT. 


CALL  NIITOL (11,12,1 t«l NOEll « INCE II 
CONTINUE 


RETURN 

END 


0922B499 

994 22499 
99  AIR  T9 j 
99HBB99 

20249009 
929491 9v 
09249209 
0C>40209 
99140499 
99249529 


TuWSuTTne  NiriTKTTTnTTnnwnnTBjm 

CONG*N  A  9UNE  T2 


9l>4 9199 


C 

c 

<* 

N» 

c 

c 

c 

e 

4* 

c 

c 

c 

c 


>149199 
10949099 
00949009 

NIITOL  IS  A  FORTRAN  IT  SUBROUTINE  THAT  IS  CALICO  BY  SUBROUTINE  99241099 
UNIMIR  ONCE  ATfER  GENERATION  OR  EACH  USER  SPEC IR I  EC  UNIT  Nil  99241191 
COLUMN  VECTOR  TO  GENERATE  USER  SPECIPIEO  LOWER  1 NO  UPPER  90l41*v9 

TOLERANCES  ON  EACH  f NTAV  0*  EACH  M|R.  NIITOL  GENERATES  1  OR  2  99241299 

I  LOWER  ANO/OR  UMEA  TOLERANCEI  COLUMN  VECTORS  FOR-  EACH  ENTRY  OR  991414 99 
A  SPECIFIES  Nil  IF  THE  USER  INPUT  TOLERANCEI SI  IS  l*Rf)  GREATER  0024l>92 
THAN  0.0  .  AS  RO*  PERMISSIBLE  UPPE*  ANO  LOWER  DEVIATIONS  fROM  92 >41422 
ALLOCATION  RULE  COERR  I  CIENT  S  IRS  GENERATE!)  RY  SUBRCUTINC  TOLRNC 19914*  791 
USER  TOLERANCE  SPECIFICATION  IS  IN  TERNS  OR  DECIMAL  FRACTIONS  90241*99 
OF  THE  M1TRI <  COEFFICIENT  IHERE  UNIT  M|i  ENTRY!  ALLOWED  AS 
MAR  IN'JN  DEVIATIONS  FROM  THE  COEFFICIENT. 


992*1099 

99142999 

90242199 

99142209 

99242199 


1 1.12.  II. ..THE  THREE-DIGIT  SEQUENCE  NUMBER  CC  THf  UNIT 
Mil  SPECIFICATION  Of  REFERENCE. 

INDEX  1  ...THE  WORO  or  ARRAYS  IMfREStlOOl  AND  "I IESI 109. 2122142409 
THAT  CONTAINS  SPfCI F 1C ATI  ON  OF  THE  FIRST  9924 2>9> 

ENTRY  2ND  IIS  PERMISSIBLE  TOLERANCE  IN  THIS  1924 2»9J 

UNIT  N|I.  92142192 

INDEX  ...THE  CURRENT  POSITION  IN  ARRAYS  IPIXESIIOOI  ANO  29142499 
C  MIXES! 100t 21  IN  SUBROUTINE  UNIMIR— THE  WORD  09242099 

C  CONTAINING  THE  HL-IERO  TERMINATOR  OP  THIS  9924  2999 

C  MIR  SPECIFICATION.  99141109 

:CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC.CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCG9l42i99 

91242291 
00242409 
00242299 
92141492 
00242299 
00242299 
99142291 
92144999 
00144199 
91144199 
90244299 

C  99944409 

C  02244529 

cccccecccccccccccccccccccccecccccccccceccccccccccccccccccccccccccccccccr jj.»4449> 

c  92144299 

C  92244129 

:  LOOK  AT  EACH  FNTRV  OF  THIS  UNIT  N|R  SPECIFICATION.  >9244499 

;  00145999 

IN0EX2  ■  INDEX  •  1  99>4519l 


common  /ALFHA/NU! SSI 
COMMON  /BE1/STR.LGL 

COMMON  /H|R/UM l*Sw,NM IRES, MIRE  SI  109, St , INI  RES (1001 
COMMON  /NAMES/NVAAl.NVAHtiNROWl •  NA0W2, NNK  «M«R 
COMMON  / SI GN/NEG, PLUS, EERO, BLR *FREE 

INTEGER  NEG. >LUS, ZERO. BLR, FREE 
I)  TEGER  STR 
INTEGER  UM|X$W 
REAL  MIXES 
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/ 


0)  io 


c 

23 

10 


conccv 

i  •  ivich.ivh ■» 


00  23 


2. 1 


if  •  positive  foif«ftMC( 
•curst mi  no  it. 


IS  SPCCI#  IfO.CCNCftlTf  ft  CCl'l»N  victon 


It  INUESI  l.ll.LC  .3.91  CO  to  20 


a  • 

Cftu 


111  1C  SI  1 1 

Uftft  )3Slftl.ftl.K2.«ll 


1«  •  Mill  SOI 

if  u.cj.ii 


Jl  •  VJ'  2 1 » 


NV  Aft  1  •  NftftM  VUI  221.11.17*111 
NVA42  •  NAftH  Jl.ll.l2.ftfl 
CALL  COL  10 

It  IJ.C0.2I  CALL  MSISIlTft.NVtftl.NVta2l 

iMTCftSCCf  Mil  SPECIFICATION  «Ow  COft  THIS  TNTftv  WITH  A 

positive  mu  cm mv  it  fins  column  ftC’nrscMS  upper 

TOLERANCE  Oft  A  MCCAllVC  Mil  CNIIIV  If  IT  REPRESENTS  LOHtft 
TOLERANCE. 


0)ji>2<0 
3w  i**  l»o 

l  00ft  AT  PISSIAlC  UPPfft  AMO  LOwCR  TOLCRANCfS  OM  THIS  M|i  CMIftv.  wwlft.-OJ 

vwl.l 7wJ 

1011 » Vow 
00 JftwL  vW 
03J«»l33 

331ft»2w3 
OW*w  JOw 
UOl.ftftWw 

w31ftwSw3 
00 JftwwOv 
bblftsTwl 
OwlftwftOw 
30 

wo  Jft /OwO 
OOlftTlOw 
001*1 Mow 
001ft  033 
OvivTftwo 
231* 2  >3o 
00 ifttboo 
owl* 7  low 
331ft  /• ww 
wwlft  7Vw o 
001ft #303 
00 1* A 103 

3wlft V2w3 
OOlftAlOJ 
3u JftftftOo 
OlJftPSOo 
301«A*33 
wdlftv  703 
031ft VAOw 
Owlft • J33 
OTC  INALOoiftVlow 

001*1103 
00 3ft 1233 

OOlftVloO 
OOlftVftUO 
ooiftisoo 
301ftV*3o 
OUOft I 70o 

301«9ftw3 
Owlft  Woo 
wOSS  Owww 
OblSllwO 
00313200 

C  uwloOJOj 

:cc:cccccccccccccc:ccccccccc:cccccccccccccc;ccccccccccccccccccccccccccccowio3ftww 

*  OUlSJSOo 

C  owl>J6wo 

301>073o 
OOliowJo 
OwoowVOw 


NftOoi 
NR0w2 
Mil  • 
CALL 
MMM 


MAMCIMUI22I.  11.12. ISI 
NAftftftUI  )SI.Kl,<2.iSI 
RL*. 
ftOOlO 

PLUS 


If  II. to. 31  NNN  ft  NIC 
CALL  NATwftTlftllCSII.il  I 

INI EftSCCT  A  MODEL  HOW  THAT  COUPLES  THIS  TOLMAMCE  COLUMN 
vc;tu<  TO  THt  mu  SPECIFICATION  COLUMN  VCCtoa.  THE  NAME 
Of  THIS  ROM  IS  THE  SAME  AS  THAT  Of  THIS  COLUMN.  THt 
COEFFICIENT  IS  THE  RECIPROCAL  Of  THE  USCN  SPECIFIED 
FRACTIOM. 


NftOMl 
MR0M2 
MM  I  ■ 
CALL 
MNM 


NAMFINUI22I* II. 12*131 
MMElNU(2'>|,Kl,ft2.Kll 
PLUS 
RO.in 
PLUS 


CALL  MAToftTI  l.O/ft|l€SI  I.JII 

CONTINUE 

CONTINUE 


RF  TURN 
END 
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member  N*«r  Congo 

SUBROUTINE  SlMSTI  VJlSlOO. 

C  wwiillww 

C  CONGE  N  *  JUNE  12  0 

C  JJiYllOJ 

C  SUBS! I  IS  *  f  J  4  T  *  AN  IV  ViMi*uTI«  SUBPROGRAM  THAT  IS  CALLED  OOJUWu 

C  ONCE  FROM  |Hf  MAIN  nilllf  TON  GEN  IF  ANY  SJPPORI  UMT  SUASTITU-  wwlillJw 

C  tiuns  are  hi  cut  i  it  all  isum*  ■  n  to  generate  t *- e  sub-matrh  joj»i»gj 

C  CF  COLUMN  VfCtiAS  XFP  <t  Sr“lf  I W  Pf  •  -ISSIDLE  SUPPUXT  UNIT  SuASTI-  JUJlHUU 

C  t UT  IONS  IN  NAIISFACTION  OF  «COL<IMC  "EM  S  FOR  SUPPORT  BY  OTHER  JwlllBGw 

:  UNITS. 


NS  IN  SAIISFACTION  OF  ■( QUIRE  "EM  S  FOR  SUPPORT  BY  OTHER  Jwl>lBGl 

.  WWll.NOw 

wwJiwO  Ow 
GGJUUJ 

CO««ON  2AL PMA/NUI JSI  OwJlWWJw 

vJMMDN  /NANCS/NVTMliNVTTJtN^Ofcl.  NXOW  2. NNI  .  AWN  09J»WJww 

CON  NON  /SIGN/  410, PLUS, EERM, HR. FRET  J0J>2*  Ow 

COMMON  /SFTSJB/S MS* ,  SOT  1 1 01 1 ,  <  J  SUM  I  130,21  ,NSU«S  wOJlJSww 

GG  J>2w0w 

INTEGER  SUBSM.PlUS./ERn.BLR.FREC  Mini Jw 

Ow  J>2 • Jw 
00 ll/OOw 

COLUMN  VE.  TOR  IS  CENERATEO  FOR  FACh  OF  NSUBS  PERMISSIBLE  Owl>JwOw 

I  TUT  ION S.  INSUBS  •  1001  OwJlJlGW 

OGJlJJOO 

BS.LE.OI  RETURN  OOJSJlOw 

I  •  l.NSUTS  WWUJMOj 

JQl>l*wJ 

GENERATE  TH*  COLUMN  VECTOR  NAME.  UwJJJfcOw 

•  dwulTG* 

SUN  I  I  •  1  I  JoJllRvU 

RTOGIIX.il. 17.111  G0j>JN0j 

SUAII.2I  jGlSMwJw 

K30GIJI.JI, J2.J1I  O&laMiUU 

NAME  I  II, 12.11, NUT78II  GGJAWOw 

NAMEINUI11I.J1.J7.J1I  OOjlMJOw 

110  wWJSMMuG 

UGJ >AS00 

THE  N'JMMER  T1F  SUPPORT  UNITS  OF  TYPE  KISUBII.il  THAT  RAY  B£JJi>MBJw 
DIVERTED  FkUM  SATIS'  'CHUN  OF  REQUIREMENTS  FOK  IT  TO  0JJ»*7wJ 

SATISEACTIONQF  REQUIREMENTS  FCR  SUPPORT  UNIT  RJSUBII.2I  UOisMBOw 

IS  DEBITED  FROM  IIS  AVAIIABIUIY  BY  A  *1.0  COEFFICIENT  wwliMOOw 

IN  ITS  MilOEL  ROM.  J wliSGGw 


ONF  COLUMN  VE.  TOR  IS  CENERATEO  FOR  FACh  OF  NSUBS  PERMISSIBLE 
SUBS! IIUT IONS.  INSUBS  •  1001 

IF  INSUBS. LE.OI  RETURN 

01  10  I  •  UNSUSS 

GENERATE  TH*  COLUMN  vector  name. 

II  •  RJSUDII.il 

CALL  BRRT0GnK.ll.l7.lll 

Jl  •  RJSUAI 1.21 

CALL  6RK30GIJI.JI. J2.J1I 

NVAR1  •  NAMEI  11. 12.11. NUT78II 

NVAR7  ■  NAMEINUI11I.JI.J7.J1I 

CALL  COL  10 


■  NAMEINUI2BI.il. 12.111 

■  BLR 
PLUS 


NXnwl  ■  NAME  I NUI 
NR0U2  ■  BLR 
NNI  ■  PLUS 

call  rowio 

NNN  ■  PLUS 
call  HATWRT 1 1 • 01 


OJ  J  1*  70  J 
UO isMBOw 

JwiilwQj 
UOJSBlUU 
Owl 4S2uw 
00J>»10i 
OOJ>»MOO 
Oil>SSOJ 
JOiiiMJJ 
OOiiiTJi 


NR  Owl 
NXfK? 
NNI  ■ 
CALI 
NNN  ■ 


OwiilBUw 

TM5  NUMJEH  OF  SUPPORT  WITS  OIVERTEO  SATISFY  SU*F  RRACT tONwulUSVwO 
SUIT!  II  U'  THC  RE  3UI  ■  CNrNTS  FOR  UNIT  KJSUBII.2I  BY  A  w*l»wJww 

-SUB III  ENTRY  IN  TME  ’.JOEL  K CM  FOR  UNIT  IJSU6II.2I.  wwiitolGw 

Uwi>w2uw 

■  NAMEINUI76I.J1.J2.J3I  OOiluJJj 

■  BLR  wwjsjNUw 

BLUE  JGJlwSww 

ROW  I  0  GlJ>060W 

NCG  JwlloTww 
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UHlf*  N4Mf  OAGEN 

C*ll  MtlwM  HS'IM I  1 1 


CONI  IN  JE 


RE  URN 

_ f  N  1 _ 

'  itM  hi  ul  INt  "  l-ujl 

C3  .GCN 


JUV  12 


sji4  iuii  if  sjifiiMii  in  n* i ? f  i  n  «iui«u  or  unicue  *r»  victor 

N4WIS  4**0  I  *  >*l  S  4%  I  I  «0w  I  (if  NT  1 1  II  M  |  (  N  Tilt  HAMM.  IMIS 
Mir  is  CrviCAf'-umi  him  mvih  euwirpn  fxrtoiio  «i?h  ih* 
rlfill  1 1 1 1 1 M  rut  IHPTAl  /NO  Inf  •  IGm|  mini*  siot  vRiyf  MU 
i.i  »m  i  if  cj’inui  v4 in i «  Mir  «( i.o v  mm  iNr>ji  tc  *ps/ho  o« 

OPT|>U  »  J<*  S  XUllftN 


COWNON  /COLCoT/lSTf  31 

CiJNHON  /M-HrS/lM<.\.tFK1N4M|  }|  ,D4isnn 

CJiTtiN  /oajs/u'mawei  i.;i,njij 

Ccwron  /p«o»*.i/i*nt« 

CU^’IJM  /HJ..WRNSN.SI  1003.21  .  R  T VP| SI  10001 


INTIOTR  PAV./N 
INTTCM  O'.l'll 
INTfGia  R\\  'CS.RTVPf t 
I'll  [  Gl  4  Il3t4-f 


REWIND  I 

COWPOTC  H  Jo  TYPE  INO I C  4  TOMS  ECR  MPS  (./NGURCt  Of  RE*f  RM*Ct 

Nrno  .  I  NO*  X  -  l 

DJ  IS  II  •  l.NENO 

RTVPf&lltl  •  NHW1P  111  VPflMKII 

ihiie  in*  bom. n  on  oisr  rue  mm/ 
ii  ihs  r:H“'i  or  fur  on  sen  ups 

IP  ILINGSW.r3.2l  GO  TO  SO 

NPS/160  E  QRR4T 

wine  ii.issi  imbn’*.i  u  .•••<eM*i2i 

WHITE  I  I • ISO) 

01  S3  I  •  1 .  N  MJ 

WMlir  I  7 . 1  a  CM  "IUAHMI.i  I.Ui»N4J*ni,2l 
03  «.»  I  X  »  I . N*N0 

wMITf  II.ISSI  -KYprsil  «l  .RN|WESII*.n. RNAMfSIli. 21 


03  <•>  IX  »  l ,  N?N0 

WRITE  II.ISSI  Ml  YP*SII <1 ,RN»*ESI 1 1 

HE  I  URN 

OP  T  |  W4  fORM/r 

wl|  IF  I  /•  1 1  31  PHSN4MI  I  .PRHN4NI2* 
01  SS  Mi  < J‘i J 
IT  •  HASH!  nrN4-|  I  1.21  .  I  I 
10  *  WASH  MSHt  11.21  •  S  I 


JJ4SOR00 

ooiaEojo 
JJiSfIJo 
004»f 400 
vv»U.. 
00 4>l4O0 
39ii l>». 

Mill  /OO 

JO  o>  Moo 

bUiRJui 

viiilUi 

vvilliii 

o; jxpj:: 

ow>»r«oo 

MllDRJ 

36l>l<>ii 

ovJxo «oO 
00 J> MO Jo 

ROliVlOi 

Osoxivii 

004>V4UVi 
OOiMUo 
Joi>V40o 
004>W0o 
ww  A.owOo 

0044JI oo 
00  M.O/33 
0J44w 100 

RiitiS.i 
00440200 
00l4J<.0o 
OiivuliJ 
OOiwOUbO 
OwiwOMOo 
3)l»l.ii 
OOitil  low 
Go  it.  I  too 
JO >4. iRi 
Jo  Ml  So  J 
00  41.1  SO  J 
JO  iwl  4  Jo 
O0  J4i /Oo 
OO >41*00 
oo ool VOo 
00 iw/OOG 
Jo  44 A  loo 
Ooio/XOo 
00  is./  4 wo 
00>4 Jwoo 
wo  Ob.  2  Jo 


<S5£> 


/ 


MCNsrn  mm  congin 

»»  o»m  12.1231  n*MM ii •  1 1 •  o»mm ti.2i.iT.it 
o*  43  i*  •  i.srvi 
it  •  n»s«i  \«  i * •  7 1  .  }  i 

l«  •  MiM  4MK(MM,M  .  4  I 

to  »t|t(  <  r.  I  791  *«»MSII*.ll.«MNflt|l»II.I  T.||.tTVt{)||i| 

M  lu*N 
t 

C 

1)0  TJtMl  1**404), ?<•«» 
l ))  M«»lt  IlMl.liWit.MH 

ItO  IOIMI  l/».  iNi.lii/U.UM 

It)  IOMII  l4N1lM.niiUill.t0li 

1  TO  TJIMH  l«,  )i*.Gl.t «.)*.•  3. 1*.  ,fi|  ,SM<r|,ttn 
t  r)  nuin  it.  ,«.•.» 4, */,im. ,**t .ini iMiiMiiiin 

1*0  MUM  1  It, 41#  Ilf  .tf.44.tj,t4t| 

_ ilO _ 

*4  **<  IOn 

33*42*03 
00  i*/«*4 

34*41104 
Ut  *4  l/Vw 
4w*4 

44*9 *444 

34*4**04 

04***244 

44**1 

44*4*00* 

30*4*033 

33>4*lV4 

■rr<i  P-mtnuLtti— 

* 

m 

4*  *44*4* 

c 

cin&tn 

t  JUKI 

T2 

44*4444* 

C 

04*»4»wJ 

c 

* 

33*4**04 

# 

TUNCTION  SJtrtOCttN 

TC  CCNtyif 

TMI  NT)  StrCITIC  «0M  TVTf 

43  *4*2  04 

c 

iNOICtlOMNON-OtJICIIVf 

•  (VS 

0*K  1 1 

00*4*404 

c 

40**4*43 

C0NN3M  /n^Ht/Nui  i)i 

40***444 

C3NMUS  /l?SVS/l*4Gt-.T4tN4NI2I.O«llOt 

44  *4*1 144 

conncn  /sicn/tifG.Pitis.TMO.tit.rtfr 

44*4**04 

c 

00*4**44 

hTICIt  NCG,'lUt.2flO(tl« 

G3*wk*Ov 

It ii Git  rail 

34*4**44 

htroct  muu 

30*4 *»34 

ItKClt  0*1  SOt 

00 *w» To* 

c 

34***tJ4 

c 

04*4*044 

IT  ll*NGSt>.(Q.2t  GO  10  )) 

30  *4*404 

c 

03*4*104 

c 

MTW)t3  TOtttl 

303**23* 

c 

0*  }*•)«*•* 
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Appendix  D 

DESCRIPTION  OF  COKFIL 


CONTI L  li  a  CONFORM  procedure,  written  In  the  FORTRAN  Language  and 
using  the  IBM  KPS/36O  REA  DCOM  subroutine,  that  reads  the  output  of 
KFG/360's  report  procedure  SOLUTION  and  produces  a  file  of  row  and 
column  Information  that  Is  Input  to  the  CONFORM  LP  reporter,  OOKREP. 

It  nay  be  thought  of  as  a  preprocessor  for  CCNREP. 

Figure  D1  Is  a  listing  of  the  OONFIL  source  prograa.  Figure  1*3  in 
Chapter  «*  shews  an  exasp  le  of  KP5/  36O  controls  used  to  execute  COKFIL. 

One  execution  of  JKFIL  processes  one  KPS/360  solution.  The  out¬ 
put  fron  SOUfTIOK  Is  a lvays  Input  to  COKFIL  on  FORTRAN  logical  unit 
seven  (7).  OONFIL's  output  Is  ultlaately  Input  to  COKREP  on  unit  two 
(2)  or  12.  For  OONFIL  execution,  the  output  unit  is  specified  by  a 
single  calling  argument. 

The  order  of  OONFIL  execution  Is: 

(a)  The  value  of  the  calling  arguaent  Is  retrieved  by  COKFIL  by  a 
call  to  READCOtM  routine  CSETARG. 

(b)  A  call  to  the  READCOIM  routine  POSITN  positions  the  ccmounlca- 
tlons  file  to  the  beginning  of  the  second  array. 

(c)  A  call  to  REAZXX&M  routine  ARRAY  positions  the  file  to  the 
beginning  of  the  next  arra^— *he  rev  information  section-— and  performs 
Initialisation  for  reading  that  data. 

(d)  A  series  of  calls  to  READCOMM  routine  VECTOP  retrieves  Informa¬ 
tion  about  the  rows.  There  Is  one  call  per  rcw.  Eight  values  are 
returned  for  each  call.  COKFIL  prints  only  the  row  name  (value  l), 

its  activity  (value  3).  Its  slack  (value  k)  and  the  pl-valuc  (value  7). 
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Fig  01— COMF1!.  Source  Program  Lifting 
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(e)  A  call  to  ARRAY  positions  the  file  to  the  beginning  of  the 
colusn  lnfornatlon  section  and  prepares  for  reading. 

(f)  A  series  of  calls  to  VECTOR  new  retrieves  Information  about 
the  colusns.  CORFU  prints  only  the  coluan  name  (value  l)  and  Its 
activity  (value  3)* 

Figure  D2  is  an  exasple  of  the  rows  section  of  C0RF1L  output. 
Figure  D3  Is  an  exasple  of  the  colucns  section  of  CONFIL  output. 
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Fig.  02— Example  of  Rows  Section  of  Output  from  CONFIL 
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Fig  D3— Example  of  Columns  Section  of  Output  from  CON  FI  L 
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Appendix  E 

DESCRIPTION  OF  CONREP  AKD  ITS  ROUTINES 


OVERVIEW 

This  appendix,  together  with  the  lifting  of  the  COKREP  source  pro¬ 
gram  in  Appendix  F,  documents  the  COKREP  program  as  it  if  ope  rati  or*  1 
at  USAKSSA. 

CONREP  is  written  entirely  in  the  FORTRAN  IV  language  for  operation 
on  USAMSSA's  IBM  360/65  computer  ays  ten.  It  is  also  operational  on  RAC's 
CDC  6UOO  computer  system.  There  are  several  differences  between  the 
programs  at  the  two  installations.  These  differences  are  not  documented 
here. 

The  program  is  cverlayed,  and  seme  data  is  packed. 

Figure  El  is  the  general  logic  flow  of  CONREP  execution.  It  is 
keyed  to  subroutine  names  (in  '  ').  Calls  to  the  subroutines  that  pro¬ 
duce  the  various  reports  are  shown;  but  none  of  the  internal  workings  of 
those  subroutines  is  shewn  here.  These  details  are  presented  in  the 
discussions  of  those  routines  below. 

Table  El  defines  the  CONREP  input  and  output  units.  Note  that  the 
cost  factors  file,  unit  11,  is  only  required  if  the  Peacetime  Cost 
Summary  is  to  be  produced.  Output  units  3  and  9  are  normally  printed; 
unit  9  may  also  be  punched  as  a  deck  of  cards.  One  set  of  data  input 
on  units  U  and  10  is  used  to  Interpret  all  IP  solutions  reported  on  in 
one  CONREP  run. 

Table  E2  lists  the  subroutine  that  produces  each  report.  Figure 
E2  shows  the  general  relationship  of  all  CONREP  routines.  It  also  de¬ 
fines  the  program  overlays.  Table  E3  lists  the  entry  points  for  each 
routine.  Table  tik  is  an  Incidence  table  of  possible  calls  by  each 
CONREP  routine. 
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Table  E2 


CORRESPONDENCES  BETWEEN  CONFORM  REPORTS 
AND  CONREP  ROUTINES 
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Troop  Deck 

TRPDCK 

Troop  List 

TRPLST 

Unit  Allocations 
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TLISTX 

Unit  Support 

SUPORT 

271 


Table  E3 


ENTRY  POINTS  OF  CONREP  ROUTINES 
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Table  E3  ( Coni' d) 
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Entry  points 
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Table  E5  defines  the  possible  normal  CONREP  terminations.  CONREP 
cannot,  of  course,  check  for  all  bad  or  inconsistent  data;  it  is  possible 
for  it  to  terminate  abnormally. 

All  cannon  variables  are  in  labeled  canmon  blocks.  Table  E6  is 
an  incidence  table  of  labeled  canmon  blocks  in  each  routine.  Table  E7 
defines  each  block  by  listing  the  variables  and  arrays  in  it.  Table  E8 
is  an  Incidence  table  of  variables  and  arrays  in  canmon  blocks.  This 
allows  easy  determination  of  the  block  containing  a  particular  variable. 
Table  E9  defines  each  common  variable  and  array. 

The  next  sections  discuss  each  routine  in  turn,  in  the  order  in 
which  they  were  listed  in  the  preceding  tables. 

DESCRIPTION  OF  ROUTINES 

Main 

The  main  routine  of  CONREP  call*  subroutine  INITZ  to  Initialize 
variable*  and  array*,  and  to  call  subroutine  BININ  to  read  a  binary 
file  of  data  (unit  U)  passed  from  CONGEN.  Main  then  calls  subroutine 
REPORT  wnlch  reads  COWRIT  control  verbs  and  calls  subroutines  to  pro¬ 
duce  specified  reports.  Upon  return  from  REPORT,  Main  stops  CONREP 
execution. 

REPORT 

Subroutine  RETORT  Is  called  fra*  the  main  routine  once  to  read 
CONREP  control  cards  and  to  call  the  subroutines  tltat  read  LT  solutions 
and  produce  specified  reports.  If  tb <  IK  DMT  verb  is  encountered,  con¬ 
trol  Is  returned  to  the  main  routine  which  stops  OHWHEP  execution.  If 
certain  conditions  are  encountered,  REPORT  will  print  an  appropriate 
diagnostic  and  terminate  execution  or  proceed.  A  test  against  a  **th 
verb,  RET,  Is  programed  but  Is  not  really  used.  If  SET  Is  encountered, 
control  Is  returned  to  the  m In  routine.  The  order  of  RCTORT  execution 
Is: 

(a)  Call  subroutine  COVER  twice  to  print  two  OOKPORM  cover  page* 
on  unit  3. 

(b)  Read  a  vert  card. 
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Table  E5  (continued  ) 
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INCIDENCE  OF  LABELED  COMMON  BLOCKS  IN  CONREP  ROUTINES 


MASK 


Table  E6  (continued) 


CSTSTR 


Table  E£>  (continued) 


Table  E7 

DEFINITION  OF  CONREP  LABELED  COMMON  BLOCKS 
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ITITLE  ( 8 ) ,  ISRC  ( 3 ) ,  ITPSN(  2 ) 
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Input  or 

Dimension  Type  Internal  Definition 
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(1)  If  LP.READ,  call  subroutine  LPRIMP  or  LPRDOP  to  read  a 
MPS/360  or  OPTIMA  LP  solution,  then  call  subroutine  SOISTR  to  retrieve 
frequently  used  solution  values,  and  then  go  to  b. 

(2)  If  REPORT,  determine  which  of  seven  reports  is  wanted  and 
call  the  appropriate  one.  If  unit  Allocations  Report  or  Unit  Support 
Report  is  specified,  first  check  to  see  if  allocation  rule  coefficients 
are  in  correct  order,  and  if  not  call  subroutine  HORDER  or  TORBER  to 
reorder  them.  Upon  return  frco  the  report  subroutine,  go  to  b. 

(3)  If  ENDREP,  call  subroutine  COVER  twice  to  print  two  CONFORM 
cover  pages  on  unit  3,  and  return  to  the  main  routine. 

BRK3DG 

BRK3DG  is  a  subroutine  that  is  called  to  convert  a  3-dlgit  integer 
to  3  Hollerith  characters .  The  characters  are  used  in  specifying  model 
row  and  column  names  in  calls  to  entry  points  BETA,  BETA3,  BVAL,  PIVAL, 

RLGL,  BVAL3,  PIVAL3  and  RLGL3  to  retrieve  solution  values.  There  are 
four  calling  arguments: 

(a)  I,  the  input  number.  This  is  usually  the  ETM  number  of  a  unit. 

(b)  II,  the  leftmost  digit  returned  as  a  Hollerith  character. 

(c)  12,  the  second  digit  returned  as  a  Hollerith  character. 

(d)  13,  the  rightmost  digit  returned  as  a  Hollerith  character. 

BRK3DG  strips  apart  the  digits  and  then. calls  function  INTHOL 

three  times  to  convert  them  to  Hollerith. 

INTHOL 

Function  INTHOL  is  called  by  subroutine  BRK3DG  to  convert  a  1- 
digit  integer  to  the  corresponding  Hollerith  character. 

BETA 

Function  BETA  is  one  of  the  "solution  value  search"  routines.  It 
returns  a  column  solution  value  from  the  Case  1  LP  solution.  The  8-character 
name  of  the  column  is  specified  by  the  eight  calling  arguments.  The 
two-part  name  is  formed  by  two  calls  to  function  NAMEU.  The  name  is  then 
checked  against  all  those  stored.  If  a  match  is  found,  the  nonzero 
solution  value  is  returned;  otherwise,  a  value  of  "0.0"  is  returned. 
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BETA  3 


Function  BETA3  is  one  of  the  "solution  value  search"  routines. 

BETA 3  is  a  LP  case-dependent  version  of  BETA.  There  are  nine  arguments. 
The  first  specifies  the  case— 1  or  3— and  the  last  eight  specify  the 
column  name. 

BVAL,  PIVAL,  RLGL 

Function  BVAL  is  one  of  the  "solution  value  search"  routines.  It 
returns  row  solution  values  from  the  Case  1  LP  solution.  There  are 
three  entry  points.  A  call  to  BVAL  returns  the  RHS  value  of  a  row.  A 
call  to  PIVAL  returns  the  pi-value  of  a  rev.  A  call  to  RLGL  returns 
the  logical  or  slack  value  of  a  row.  The  8-character  rev  name  is 
specified  by  the  eight  calling  arguments.  Two  calls  to  function  NAME1* 
form  a  two-part  row  name  which  is  checked  against  all  row  names  stored. 
If  a  match  is  found,  the  desired  nonzero  value  is  returned;  if  the  name 
is  not  found,  a  value  of  "0.0"  is  returned. 

BVAL3,  PIVAL3,  RLGL 3 

Function  BVAL3  is  one  of  the  "solution  value  search"  routines. 

BVAL3  and  its  other  two  entry  points  are  LP  case-dependent  versions 
of  BVAL,  PIVAL  and  RLGL.  There  are  nine  calling  arguments.  The  first 
specifies  the  case— 1  or  2— end  the  last  eight  specify  the  rev  name. 

DEATH 

Subroutine  DEATH  may  be  called  to  print  a  diagnostic  message  and 
stop  execution  if  a  subreport  was  called  before  an  LP  solution  was 
read. 

HEADS 

Subroutine  HEADS  may  be  called  from  1-case  report-producing  sub¬ 
routines  to  print  the  standard  CONREP  heading  and  page  number  on  unit 
3.  HEADS  prints  one  line  of  LP  solution  information  for  case  cce  and 
then  calls  subroutine  WR1  to  print  a  line  with  a  constant  CONREP 
heading  and  the  page  number. 

HEADS2 

Subroutine  HEADS2  may  be  called  from  subroutines  that  compare  two 
LP  solution  cases  to  print  a  page  heading  and  page  numbers.  HEADS2 
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prints  two  beading  lines  of  information  free  esse  1  and  case  2,  and 
then  calls  subroutine  VR1  to  print  a  constant  CONREP  heading  and  the 
page  number. 

HOLL 

Subroutine  HOLL  converts  a  word  in  real  format  to  a  specifiable 
number  of  words  with  a  single  Hollerith  character  per  word.  If  the 
real  word  is  nonzero,  the  characters  produced  are  the  digits  of  the 
word.  If  the  real  word  is  zero,  the  characters  may  be  all  blank  or 
may  include  a  decimal  point  in  the  proper  poaltlon.  The  characters  are 
returned  in  common  array  UXE(130).  The  real  number,  the  real  format, 
whether  to  print  all  blanks  or  the  decimal  point,  and  the  positions  in 
array  LINE  to  fill  are  all  specified  through  calling  arguments.  HOLL 
is  mainly  used  to  aid  in  performing  zero-suppression  in  some  report- 
producing  routines. 

MASK 

Function  MASK  masks  off  a  specified  character  of  an  input  word,  and 
returns  it  as  the  left- Justified  end  zero-filled  function  value.  There 
are  two  arguments,  '’’he  first  specifies  the  input  word  and  the  second 
the  character. 

NAMEU 

Function  HAME4  concatenates  four  left- Justified  and  zero-filled 
characters  to  form  one-half  of  wodcl  row  and  column  names.  The  four 
characters  are  passed  as  calling  arguments. 

WR1 

Subroutine  VR1  is  called  by  subroutines  HEADS  and  HEADS2  to  print 
a  line  with  a  constant  COKRZP  heodlng  and  the  page  number. 

ZERO 

Subroutine  zero  is  called  by  some  routines  to  zero  out  an  array. 

Two  arguments  specify  the  array  and  the  number  of  words  to  zero  out. 

Block  Data 

Array  NSTMB  is  initialized  here.  It  is  the  basic  character  set 
for  row  and  column  names.  The  characters  are  specified  as  left- Just  if  led 
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with  blank  fill.  Subroutine  INITZ  converts  them  to  zero  fill  by  calls 
to  function  MASK. 

INITZ 

Subroutine  INITZ  is  called  once  from  the  main  routine  to  initialize 
some  variables  and  arrays.  It  calls  subroutine  BUTIN  to  read  the  binary 
file  (unit  4)  of  data  passed  from  CONGER. 

BININ 

Subroutine  BIRIN  is  called  once  from  subroutine  INITZ  to  read  the 
binary  file  of  data  passed  from  CORGEN.  BUTIN  reads  from  unit  4.  The 
flic  was  written  by  CONGER  on  unit  11.  The  following  date  Is  read: 

(a)  strnth(76o),btm(t6o),cost(76o) 

(b)  CQEP(8000) 

(c)  kjccef(8ooo) 

(d)  NANZ,NBNZfWCOKBT,NSUPRT 

(e)  NEFF,EFFIAB(6,3),EFF(60,6) 

(f)  NAOOR, AQGIAB(25 ) . 

These  variables  and  arrays  have  the  sane  names  as  In  CORGEN. 

HORTER 

Subroutine  HORDER  say  be  called  from  subroutine  REPORT  to  put  the 
allocation  rule  coefficients— arrays  COEF  and  KJCOEF — Into  supporting 
unit  order  before  REPORT  calls  subroutine  ALOCAT  to  produce  the  Unit 
Allocations  report.  HOREER  Is  called  if  cannon  variable  IORP  Is  not 
equal  to  1. 

TOREER 

Subroutine  TOREER  nay  be  called  from  subroutine  REPORT  to  put  the 
allocation  rule  coefficient*— arrays  COEF  and  KJCOEF — into  supported 
unit  order  before  REPORT  calls  subroutine  SUFORT  to  produce  the  Unit 
Support  Report.  TOREER  Is  called  if  cocoon  variable  IOPD  Is  not  equal 
to  0. 

SOLSTR 

Subroutine  SOLSTR  Is  called  from  subroutine  REPORT  Immediately  after 
each  If.  READ  to  retrieve  and  store  the  number  of  each  combat  and  support 
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unit  type  in  the  force.  The  LP  case  number  is  passed  by  common  variable 
I0TA(2).  The  fractional  solution  values  are  retrieved  by  calls  to 
subroutine  'BRK3DG'  and  function  BETA3.  They  are  stored  in  array 
FORSOL(760,2).  Integer  values  are  computed  from  these  according  to 
Battalion  Slice  model  rules,  and  are  stored  in  array  IFRS0L(760,2). 

TRPDCK 

Subroutine  TRPDCK  produces  the  Troop  Deck  report.  TRPDCK  is  called 
from  subroutine  REPORT  whenever  the  control  card  is  "REPORT  TROOPDCK". 
This  report  is  card- images  and  is  produced  on  unit  9.  An  EOF  is  written 
before  returning  control  to  REPORT.  Subroutine  TGTD  is  called  to  re¬ 
trieve  the  title,  SRC  number,  and  TPSN  of  each  unit  from  unit  10. 

TRPDCK  rewinds  unit  10  before  the  first  call  to  TGTD. 

TGTD 

Subroutine  TGTD  is  called  from  subroutine  TRPDCK  once  for  each 
unit  typ?  to  retrieve  the  title,  SRC  number,  and  TPSN  of  the  unit  from 
FORTRAN  logical  unit  10.  Unit  10  is  a  formatted  file  and  has  one 
logical  record  per  unit  type,  in  the  order  modeled. 

TRPLST 

Subroutine  TRPLST  produces  the  Troop  List  report.  TRPLST  is  called 
from  subroutine  REPORT  whenever  the  control  card  is  "REPORT  TROOPLST  i". 
This  report  is  produced  on  unit  3«  The  value  of  the  prameter  i  on  the 
control  card  indicates  how  to  interpret  the  marginal  values  of  the  LP 
solution: 

i  =  1  ...  interpret  as  strength 

2  ...  interpret  as  cost 

3  ...  interpret  as  numbers  of  units 

h  ...  interpret  as  combat  unit  effectiveness 
5  ...  all  other. 

The  value  of  the  parameter,  which  is  passed  to  TRPLST  in  common  variable 
ITEST(l),  indicates  what  column  headings  to  print  and  hew  to  calculate 
certain  values. 

TRPLST  loops  on  combat  unit  types  and  then  on  support  unit  types. 
Information  is  reported  for  each  unit  type.  Subtotals  are  taken  at  the 
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end  of  the  combat  and  support  units,  and  grand  totals  are  also  reported. 
The  title,  SRC  number  and  TPSN  of  each  unit  are  retrieved  from  logical 
unit  10  by  a  call  to  subroutine  TGTL.  The  fractional  and  integer  number 
of  units  in  the  force  is  retrieved  from  arrays  FORSOL  and  IFRSOL.  The 
"Fractional,  Per  Unit,  Slice"  value  is  the  LP  marginal  value  of  the  row 
corresponding  to  each  unit.  It  is  computed  by  a  call  to  function  PIVAL. 
The  "Fractional,  Per  Unit"  value  is  the  strength  of  the  unit,  or  the  cost 
of  the  unit,  etc.,  as  specified  by  the  parameter  on  the  report  control 
card.  Ihe  "Fractional,  Per  Unit,  Support"  value  is  the  difference 
between  these  last  two  values.  The  "Fractional,  Total"  values  are 
simply  the  "Fractional,  Per  Uhit"  values  times  the  number  of  units  in 
the  force. 

Although  this  report  is  usually  only  produced  for  base  case  runs, 
it  may  be  produced  for  other  runs.  To  allow  for  use  with  some  of  these 
other  runs,  the  LP  marginal  values  are  adjusted  according  to  some  rules 
discovered  for  uniform  support  unit  requirements  deviations  runs.  For 
a  base  case  there  is  effectively  no  adjustment.  For  other  runs,  a 
fraction  is  computed  as  the  number  of  units  in  the  force  divided  by 
the  number  required.  The  number  required  is  calculated  based  on  solu¬ 
tion  values  of  deviation  variables  by  calls  to  function  BETA.  Hie  IP 
marginal  value  is  then  divided  by  this  fraction. 

TLHEAD 

Subroutine  TLHEAD  is  called  from  subroutine  THPLST  to  eject  to  the 
top  of  a  new  page  and  print  the  standard  CONREP  heading  and  a  heading 
for  this  report.  The  report  heading  is  variable.  Common  variable 
ITEST(l)  passes  the  value  of  the  parameter  on  the  control  card  for  this 
report,  which  indicates  what  heading  to  use.  TLHEAD  calls  subroutine 
HEADS. 

TGTL 

Subroutine  TGTL  is  called  from  subroutine  TRPIHT  once  for  each 
unit  type  to  retrieve  the  title,  SRC  number,  and  TPSN  of  the  unit  from 
FORTRAN  logical  unit  10.  TGTL  is  identical  to  subroutine  TGTD  except 
for  name.  The  logic  is  duplicated  to  facilitate  program  overlaying. 
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ALOCAT 


Subroutine  ALOCAT  produces  the  Unit  Allocations  report.  It  is 
called  from  subroutine  REPORT  whenever  the  control  card  is  "REPORT 
ALLOCATN  i".  ALOCAT  loops  on  all  support  unit  types,  interpreting 
them  as  "supporting  units."  As  it  does  this,  it  also  steps  through  the 
A-  and  B-matrix  allocation  rule  coefficients  stored  in  arrays  C0EF(8000) 
and  KJC0EF(8000).  These  coefficients  are  already  in  supporting  unit 
order.  Each  coefficient  that  requires  the  supporting  unit  currently 
looped  on  is  used  to  compute  information,  and  a  line  is  printed  in  the 
report.  The  DTM  number,  title  and  solution  value  of  each  supporting  and 
supported  unit  is  reported.  The  unit  titles  are  retrieved  from  logical 
unit  10  by  calls  to  subroutine  TGALO.  If  the  control  card  parameter 
equals  "l",  this  retrieval  is  suppressed  to  speed-up  the  report.  The 
"Supporting  Unit  Marginal  Value"  is  computed  from  the  IP  marginal  value 
by  calls  to  function  PIVAL,  using  the  same  adjustment  logic  as  in  sub¬ 
routine  TRPLST.  The  "Supporting  Unit  Subtotal"  is  the  solution  value  of 
each  supported  unit  times  the  coefficient.  The  "Subtotal  Strength"  is 
the  "Supporting  Unit  Subtotal"  times  the  strength  of  the  supporting  unit. 
The  "10  Percent  Coefficient  Marginal  Value"  is  computed  from  the  unadjusted 
LP  marginal  value  and  the  solution  value  of  the  corresponding  supported 
unit  by  the  formula  presented  in  Chapter  5  of  this  volume. 

ALHEAD 

Subroutine  AIHEAD  is  called  by  subroutine  ALOCAT  to  eject  to  the 
top  of  a  new  page  and  print  a  heading.  ALHEAD  calls  HEADS  to  print  the 
standard  CONREP  heading. 

TGALO 

Subroutine  TGALO  is  called  by  subroutine  ALOCAT  to  retrieve  the 
title,  SRC  number,  and  TPSN  of  a  combat  or  support  unit  from  FORTRAN 
logical  unit  10.  The  single  calling  argument  specifies  the  sequence 
number  of  the  unit  in  the  model.  This  is  the  same  as  the  number  of  the 
logical  record  on  unit  10  that  is  to  be  read.  Common  variable  IL0C10 
stores  the  number  of  the  logical  record  last  read.  If  the  record 
wanted  is  the  one  last  read,  TGALO  backspaces  unit  10  and  then  reads 
the  record.  If  the  record  wanted  is  greater  than  the  one  last  read. 
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TGALO  performs  dummy  reads  to  skip  to  the  record,  and  -then  reads  it. 

If  the  record  wanted  is  less  than  the  one  last  read,  TGALO  rewinds  unit 
10,  performs  dummy  reads  to  skip  to  the  record,  and  then  reads  the 
record.  The  information  read  is  passed  to  ALOCAT  through  common  var¬ 
iables  ITITI£(8),ISRC(3),and  ITPSN(2). 

KJUNPA 

Subroutine  KJUNPA  is  called  by  subroutine  ALOCAT  to  unpack  the  DTM 
numbers  of  the  supported  and  supporting  units  of  an  allocation  rule 
coefficient.  There  are  three  calling  arguments: 

(a)  LOC,  the  word  of  array  KJCQEF  to  be  unpacked. 

(b)  ID1,  the  KIM  number  of  the  supported  unit. 

(c)  ID2,  the  DOM  number  of  the  supporting  unit. 

KJGETA 

Function  KJGETA  is  called  by  subroutine  ALOCAT  to  determine  the 
sequence  number  of  a  unit  in  the  model.  The  single  calling  argument 
specifies  the  DIM  number  of  the  unit.  Array  DTM(76o)  is  searched  until 
a  match  is  found,  and  then  that  location  is  returned  as  the  function 
value . 

CSTSTR 

Subroutine  CSTSTR  produces  the  Peacetime  Cost  Summary  report. 

This  report  ignores  the  single  cost  function  included  In  the  LP  model 
whose  volution  is  being  reported.  It  instead  uses  the  number  of  each 
unit  type  as  derived  by  the  model  and  the  cost  factors  included  in  the 
special  Battalion  Slice  extraction  from  the  FCIS. 

Variables  initialized  within  CSTSTR  match  the  routine  with  this 
data  file.  NCST  is  the  number  of  budget  categories  included  in  the  file. 
NCST  currently  equals  32.  CSTLAB(8,32)  stores  labels  for  each  of  these 
categories.  Cost  factors  for  some  categories  may  vary  by  peacetime 
stations.  NPTSTA  is  the  number  of  peacetime  stations  included  in  the 
data  file.  NPTSTA  currently  equals  6.  PTSIAB(2,6)  stores  labels  for 
each  of  these  peacetime  stations.  3PTSTA(i,l)  specifies  whether  or 
not  cost  factors  for  category  i  may  vary  by  peactime  station.  A  value 
of  "1"  indicates  that  they  do.  IPTSTA(i,2)  specifies  whether  each 


budget  category  is  an  initial  or  recurring  cost.  A  value  of  "1"  inci- 
cates  that  the  category  is  an  initial  cost.  If  the  number  and/or  type 
of  data  in  this  file  is  changed,  this  internal  CONREP  data  must  be 
changed.  The  data  is  read  from  unit  11;  unit  11  is  rewound  at  the 
beginning  of  CSTSTR  execution. 

All  numbers  reported  on  the  first  page  and  the  three  strength 
totals  are  computed  and  stored  in  array  TOTALS (hi, 3).  The  strength 
totals  are  retrieved  from  the  slack  values  of  the  corresponding  alterna¬ 
tive  objective  functions;  function  RLGL  is  called.  Each  record  of  the 
cost  data  file  is  read,  and  if  it  corresponds  to  a  unit  that  is  in  the 
model,  those  cost  factors  are  multiplied  times  the  number  of  that  unit 
in  the  force  (stored  in  array  FORSOL).  The  appropriate  subtotals  are 
incremented . 

All  costs  are  then  scaled  in  millions  of  dollars,  and  the  first 
page  of  the  report  is  printed  on  unit  3* 

The  second  page  of  the  report  is  then  produced.  First,  total 
initial  investment  plus  ten  years  operating  cost  for  representative 
discounting  rates  is  computed  and  printed.  Function  DSCNT  is  called  to 
compute  the  discount  rates.  Then  the  strength  totals  are  printed,  and 
finally  the  user-specified  distribution  of  units  at  peacetime  stations 
is  noted. 

DSCNT 

Function  DSCNT  is  called  by  subroutine  CSTSTR  to  calculate  discount 
rates  used  in  the  Peacetime  Cost  Summary.  Calling  arguments  specify 
the  nominal  interest  rate  and  the  number  of  years.  The  rate  calculated 
is  multiplied  times  one  year's  cost  in  CSTSTR.  The  rate  is  calculated  by 

Dscm  =  tsittr)  *  I1  -((^ra)]> 

where  R  is  the  nominal  interest  rate  and  NPD  is  the  planning  period  in 
number  of  years. 

SUMARY 

Subroutine  SUMARY  produces  the  one-page  Force  Summary  report.  It 
is  called  from  subroutine  REPORT  whenever  the  control  card  is  "REPORT 
SUMMARY".  The  five  lines  of  comments  below  the  report  heading  are  read 
from  five  data  cards  prepared  by  the  user. 


The  number  of  combat  unit  types  is  passed  from  CONGEN.  The  number 
of  combat  units  is  computed  from  the  solution  values  of  the  combat 
units.  The  number  of  DFE  is  input  by  the  user. 

The  combat  strength  is  retrieved  from  the  slack  value  of  the 
alternative  objective  function  TCSTRN  by  a  call  to  function  RLGL.  The 
support  strength  is  retrived  from  the  slack  value  of  TBSTRN,  and  the 
total  strength  is  retrived  from  the  slack  value  of  TFSTKN.  The  percent 
combat,  combat- to- s upport  ratios,  and  strength  per  DFE  are  computed  from 
these  values  and  the  number  of  DFE. 

The  combat  cost  is  retrieved  from  the  slack  value  of  alternative 
objective  function  TCCOST.  Support  and  total  cost  are  retrieved  from 
the  slack  values  of  TSCOST  and  TFCOST. 

The  values  of  the  six  combat  indicators  are  retrieved  from  the 
slack  and  RHS  values  of  the  up  to  six  combat  effectiveness  indices 
included  in  the  model.  Functions  BVAL  and  RLGL  are  called.  This  report 
always  reports  six  values,  and  'the  labels  are  not  variable. 

SUMARY  then  loops  on  the  number  of  support  unit  aggregates  in  the 
model.  For  each  one,  the  strength  and  cost  of  the  alternative  are  com¬ 
puted  from  the  slack  and  RHS  values  of  rows  "abSTR"  and  "abCST".  The 
strength  and  cost  force  short-  or  longfall  is  computed  by  either  com¬ 
paring  the  values  for  this  alternative  with  those  in  a  case  2  LP  solu¬ 
tion,  or  from  the  slack  and  RHS  values  of  rows  "abSTRFD"  and  "abCSTFD". 
An  input  parameter  selects  which  way.  The  strength  and  cost  requirements 
short-  or  longfalls  are  computed  from  the  slack  and  RHS  values  of  rows 
"abSTRRD"  and  "abCSTRD". 

LPRDOP 

Subroutine  LPRDOP  is  called  from  subroutine  REPORT  if  a  control 
card  is  "LP.READ  OPTIMA".  This  routine  reads  the  output  of  OPTIMA'S 
RECORD  procedure .  Information  is  read  for  use  in  the  heading  on  each 
page  of  each  report  that  uses  this  LP  case.  The  case  number  is  passed 
to  LPRDOP  in  common  variable  I0TA(2).  The  unit  from  which  the  solution 
will  be  read  is  passed  in  variable  IOTA(l). 

First  column  and  the  row  information  is  read  and  stored.  The  name 
and  solution  value  of  all  columns  with  non- zero  solution  values  is 
stored  in  common  block  ANS.  The  name,  RHS  value,  pi-value,  and  logical 
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or  slack  value  of  all  rows  with  any  one  of  the  three  values  nonzero  is 
stored  in  common  block  RNS. 

Information  for  a  case  1  is  always  stored  starting  in  the  first 
words  of  the  common  blocks. 

LPREMP 

Subroutine  LPREMP  reads  an  LP  soluti  n  produced  by  MPS/360.  LPREMP 
is  called  from  subroutine  REPORT  if  a  control  card  is  "LP.READ  MPS/360". 
This  routine  reads  the  output  of  the  CONFORM  procedure  CONFIL.  CONFIL 
is  called  from  within  MPS/360,  and  translates  the  output  of  MPS/360's 
SOLUTION  procedure  into  a  form  that  is  readable  by  CONREP.  LPREMP 
first  reads  information  to  be  used  in  page  headings  from  two  cards 
following  the  LP.READ  card.  It  then  reads  row  and  column  information 
from  a  unit  specified  by  common  variable  IOTA(l).  The  LP  case  number 
is  specified  by  variable  I0TA(2).  The  name,  RHS  value,  pi- value,  and 
logical  or  slack  value  of  all  rows  with  any  one  of  the  three  values 
nonzero  is  stored  in  common  block  RNS.  The  name  and  solution  value  of 
all  columns  with  nonzero  solution  values  is  stored  in  common  block  ANS. 
Information  for  case  1  is  always  stored  starting  in  the  first  words  of 
the  common  blocks. 

SUPORT 

Subroutine  SUPORT  produces  the  Unit  Support  report.  It  is  called 
from  subroutine  REPORT  whenever  a  control  card  is  "REPORT  SUPPORT  i". 
SUPORT  loops  on  each  combat  and  support  unit  type  in  the  model,  inter¬ 
preting  them  as  supported  units.  At  the  same  time,  it  steps  through 
the  allocation  rule  coefficients,  stored  in  arrays  C0EF(8000)  and  KJCOEF 
(8000).  These  coefficients  are  already  in  supported  unit  order.  One 
line  is  printed  for  each  supported  unit,  and  one  additional  line  for 
each  unit  required  by  it  on  the  basis  of  allocation  rule  coefficients. 

Unit  titles  are  retrieved  from  logical  unit  10  by  calls  to  sub¬ 
routine  TGSPT.  This  retrieval  may  be  suppressed  to  speed-up  the  report. 
A  control  card  parameter  value  of  "1"  specifies  suppression.  Solution 
values  are  retrieved  from  array  FORSOL.  The  requirements  deviation 
is  computed  from  the  solution  values  of  columns  'ISijkRS"  and 
"SijkRL".  The  unit  strength  and  cost  are  retrieved  from  arrays  STRNTH 
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and  COST.  The  LP  marginal  value  is  retrieved  from  the  marginal  value  of 
row  "Cijk"  or  "Sijk".  The  "direct  unit  allocation,  assuming  no  require¬ 
ments  deviation"  is  simply  the  solution  value  of  the  supported  unit 
times  the  corresponding  coefficient.  The  strength  value  is  simply  this 
number  times  the  strength  of  the  supporting  unit.  The  "direct  unit 
allocation,  assuming  uniform  requirements  deviation"  is  the  allocation 
assuming  no  deviation  times  (l  -  overall  fraction  requirements  deviation). 
The  10  percent  coefficient  marginal  value  is  computed  exactly  as  in 
subroutine  ALOCAT. 

SHEAD 

Subroutine  SHEAD  is  called  from  subroutine  SUPORT  to  eject  to  the 
top  of  a  new  page  and  print  the  heading  information  for  the  Unit  Support 
Report.  SHEAD  calls  subroutine  HEAD6  to  print  the  standard  CONREP 
heading  lines. 

TGSPT 

Subroutine  TGSPT  is  called  by  subroutine  SUPORT  to  retrieve  the 
title,  SRC  number,  and  TPSN  of  a  combat  or  support  unit  from  FORTRAN 
logical  unit  10.  Except  for  the  name,  TGSPT  is  identical  to  subroutine 

V 

TGALO.  The  logic  is  duplicated  to  facilitate  program  overlaying. 

KJUNPS 

Subroutine  KJUNPS  is  called  by  subroutine  SUPORT  to  unpack  the  DTM 
numbers  of  the  supported  and  supporting  units  of  an  allocation  rule 
coefficient.  Except  for  the  name,  KJUNPS  is  identical  to  KJUNPA.  The 
logic  is  duplicated  to  facilitate  program  overlaying. 

KJGETS 

Function  KJGETS  is  called  by  subroutine  SUPORT  to  determine  the 
sequence  number  of  a  unit  in  the  model.  Except  for  the  name,  KJGETS 
is  identical  to  KJGETA.  The  logic  is  duplicated  to  facilitate  program 
overlaying. 

COVER 

Subroutine  COVER  is  called  from  subroutine  REPORT  to  print  cover 
pages  at  the  beginning  and  end  of  output  on  unit  3.  COVER  prints 
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"CONFORM"  in  12  x  10  characters  made  of  "$s"  approximately  centered  on 
the  page.  A  "C",  "0",  "N",  "F" ,  "R"  and  "M"  are  defined  with  DATA  state¬ 
ments  . 

TI.ISTX 

Subroutine  TLISTX  produces  the  Unit  Deviations  report.  It  is 
called  from  subroutine  REPORT  whenever  a  control  card  is  "REPORT 
TRPL5TX  i" . 

TLISTX  loops  on  all  combat  and  then  all  support  unit  types.  For 
each  one,  its  title  and  SRC  number  are  retrieved  from  unit  10  by  a  call 
to  subroutine  TGTLX.  The  unit  strength  and  cost  are  retrieved  from 
arrays  STKNTH  and  COST.  The  LP  marginal  value  is  the  marginal  value 
of  row  "Cijk"  or  "Sijk".  It  is  retrieved  by  a  call  to  function  PIVAL. 

The  fractional  and  integer  number  of  units  of  each  type  are 
retrieved  from  arrays  FORSOL  and  IFRSOL.  They  are  multiplied  by  the 
strength  of  the  unit  to  get  the  fractional  and  integer  number  of  men 
in  the  force.  Force  deviations  are  computed  from  the  solution  values 
of  columns  in  this  alternative  or  by  comparison  with  the  number  of  units 
in  a  rase  2  LP  solution.  The  parameter  on  the  control  card  selects  the 
method.  For  combat  units,  function  BETA  retrieves  the  solution  values 
of  columns  "CiJkS"  and  "CiJkL"  if  deviations  are  to  be  computed  from 
structure  within  the  model.  For  support  units  the  column  names  are 
"SijkFS"  and  "SijkFL".  Support  unit  requirements  deviations  are  computed 
from  the  solution  values  of  columns  "SiJkRS"  and  "SiJkRL". 

Subroutine  HOLL  is  called  to  blank-out  zero  values. 

TXHEAD 

Subroutine  TXHEAD  is  called  from  subroutine  TLISTX  to  eject  to  the 
top  of  a  new  page  and  print  a  heading  for  the  Unit  Deviations  report. 
TLISTX  calls  HEADS  or  HEADS2,  depending  on  whether  one  or  two  LP  cases 
are  used  in  producing  the  report,  to  print  the  standard  CONREP  heading. 

TGTLX 

Subroutine  TGTLX  is  called  from  subroutine  TLISTX  to  retrieve  the 
title,  SRC  number,  and  TPSN  of  a  unit  from  FORTRAN  logical  unit  10. 

Except  for  the  name,  TGTLX  is  identical  to  TGTD.  The  logic  is  duplicated 
to  facilitate  program  overlaying. 
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Appendix  F 

CONREP  SOURCE  PROGRAM  LISTING 


The  CONREP  Source  Program  f  IBM  360  FORTRAN  IV)  is  listed  here. 
The  order  of  routines  and  the  page  numbers  on  vhich  they  begin  is: 


CONREP 

307 

REPORT 

307 

ERK3DG 

310 

INTHOL 

311 

BETA 

311 

5ETA3 

312 

BVAL 

313 

BVAL3 

314 

DEATH 

315 

HEADS 

315 

HEADS2 

315 

HOLL 

315 

MASK 

317 

NAMEU 

317 

WR1 

318 

ZERO 

318 

Block  Data  TRANS 

318 

INITZ  . 

318 

BININ 

319 

HORDER 

320 

TORDER 

320 

SOLSTR 

321 

TRPDCK 

322 

TGTD 

323 

Preceding  page  Mink 
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TRPLST 

323 

TLHEAD 

326 

TGTL 

326 

ALOCAT 

327 

ALHEAD 

329 

TGALO 

329 

KJUNPA 

330 

KJGETA 

330 

CSTSTR 

330 

DSCNT 

33^ 

SUMARY 

335 

LPRDOP 

339 

LPRDMP 

342 

SUPORT 

344 

SHEAD 

346 

TGSPT 

346 

KJUNPS 

347 

KJGETS 

347 

COVER 

348 

TUSTX 

349 

TXHEAD 

351 

TGTLX 

352 
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RENDER  NAME  CON* CP 

C  ovEALAviNssrER.D.oi  .  .  _ 

C  PROGRAM  Cime P I  INPUT  -I  0 3, OUTPUT-100 •  TAPES- INPUT  ,  TA PE  2.  T  APE  J, 

:  *T4P£4- 100*  TAPE  9-100*  TAPE  10-100*  TAPE!  l-IOO*  TAPE  12-1C0*TAP£S-INPUTI 


COMMON  /AG-/NAC3R* AGGL4NI29I 

COMMON/ANS/IAI  75C3I  _ 

COMMON  /OE&CKP/STKNTHI TSOI  «OTN|?60I*COSTI7*CI 
COMMON  /EF*/N£FF»EfFLAM  6*31  .EFFI60.6I 
COMMON  /T  OR  SOL  /FOR  SOLI  T40.il*  IFRSliL  I  760*  2 1 
CUMMJN/HE03/I  T  ITLEI  33*  31  t.l/AGE 

COMMON  /KE3FAC /C3EFI P0J3 1  *K JCOEP 1 19001  .NANI.  NONE 

COMMON  /RES0LU/NCUM9T*MSUPRT*NPRAM*NPRAMU  .  .  _ 

C0MM0N/4NSSIRI 203091 

COMMON/S TAT/NCUL  I  31  •  NRIVTI 31  tCREAOl  31 

CUMMUN/SVMMOL/NSVMAI  3TI 


c 

...  c 

c 

_c._. 


INTEGER  OTM 
INTEGER  AGGL4A 


CAU  SUBROUTINE  INIT2  TO  INITIAlttt  VAR  I  ARLES  AND  ARRAYS  AND 
T3  CALL  SU3R3UT I  ME  MNIM  TO  RE  AO  A  OINARV  PILE  OP  DATA  PREPAREO 
•T  CONCEN.  .  .  _ _ _ 

CALL  MARK2I19*«INIT  I  ...  _ _  . 

CALL  OVEALAVI SHSTART *1*  3*01 

CALL  INITI  ... 

CALL  THE  ROUTINE  /  RETORT  /  THAT  CONTROLS  ORCIR  ANO...  . 
CONTENT  OP  GIVEN  CONPCMM  REPORT. 


CALL  REPORT 

*MP  .  ....  _ 

luAKliuHNI  REPORT  _ _  .  . 

CONTROL  IS  PASSED  MERE  PROM  /MAIN/.  /REPORT/ 

CRIRCISCS  ERECUTIVf  CCNIROL  RV  Rf AOI  NG  A NO  ICCNTIFVIKG 
CALOS  IN  USER-PREPARfO  INSTRUCTION  0EC«.  APPROPRIATE 
SUSR3UT I NC S  ARE  CALLED  FROM  /*fPORT/.  MESSAGES  ARE 
ISSUEO  TOR  A  VAtlfir  OF  ARNORMAL  CONOITIONS. 

COMMON/CMECO/ITESIf  ESI  .  .  _ _ _ _  _  . 

COMMON/S VM»:n./MS» MSI  3TI 
COMMON/COMMO/IOT Al  1st 
COMMON  /OR9ER/ 1340 

DIMENSION  |ll2JI.NVtRII/I.M4RGII4t,MPtTVP|«l 

C3UI VALCNCl  I  n(Stlll.lNO||,||l{SM2I.IN32l.l|t(Sim*IN03l 

EQUIVALENCE!  IIEIMAI. Itl  III 

NA4G  CO'.TAI  iS  the  SU9AEPORI  PHRASE  ARCUMENIS  usadli 
III  IN  IME  V(R»  /MfPOR  l/» 

DATA  NARG/SHIR09*  sMPt  SI  ,  4hIRC0«*»^,'CR«SMA110**hCAIN  *  AmCOST*  AMSUM  * 
•  AHSUMM.AmARV  ,  «*«SUPP*AMOI  I  *  AMI  IPs  .AMSTi  / 

•APS  I  VP  CJNtAINS  PHRASES  PERN  1 1  TfO  AS  ARGHMfAIS  OP 

VIM  /LP.RfAO/.  _ _ _  .. 

DATA  MPSTVP/AMOPf  |,AM*»  *AMMPS/*AM3  A3  / 

MARVCA  CONTAINS  IMF  NUMRIA  OF  *110*4011  CONIPiA  VdDS. 
NVIK  CONI  A  |  NS  UR  PHRASES  AllO-CO  AS  CONIROL  V|RSS  — 


.  0030  J 100 
OOO-J.w >- 
JGJJu-O- 
Ob  09c  SOU 
000303— 
OGbO— sO— 
00  30-703 
0-30- a— 
0G0--S0- 
00 091 000 
30— M  — 
030-1*0- 
00  001  JOG 
00  — isO- 
01X150- 
00001  <>00 
Ob  001  Too 
Jo  001  POO 
OC 00 l sou 
Ob  ow  20-0 
36X213- 
0LX22— 
30332 
ObOo.-J- 
OG 002  300 
3CX2*3- 
——2  733 
30X2*— 
00002'*  JO 
33X3-3- 
93X-.3- 
OOX  J*— 
0000-3-0 
00 -03-0- 
Ow— J  — 

JtiL&XLdl 
-J— >/-- 
-0X3*0- 
0-X  J«— 
X  J— 

VCO-Al— 
00— A  <-- 
OGJOtJJ- 
0600  —00 
6— -GA»— 
66—.—- 
00X4  7— 

00X4«— 

03-O.s— 
XO-3— O 

303-—33 
00003J— 
00— 
06x33— 
00  003—0— 
00—37— 
— — >*0- 


Cjfftst) 


/ 


NCNOfA  MM  CONAff 

:  ac/oat,  stt,  tnoat/,  ir.trto. 

MIA  MIVHM/.lVd/VUtlO.tlNIiJHin.lN  ,W(llMilHili 

•  »A*9/ 

:  HA* A AC  CONTAINS  f  Hf  HUM  I*  Of  UlOMHi  AASUffNTl  Of 

:  thc  *t«  amuai. 

04TA  <UU<;/  7/ 

C  CHI  OVI«l*rt  1<0VM.2).3,II 

C  CALI  UVC/LAtiSmCOVM.IO.O.I) 

CALL  COVCA 
CAU  COVM 

C  G*CIN  (AC'UMUN  — 

C  INI  1 1 AL I If  IHC  Vf  At  ID  COUNT!  A. 

tt  I  •  0 

"  S  AIA9  AHA  I  SHOULA  tf  A  9f  At  CAAD  IN  USfA  OfCA.  * 

C  100  Af ADI  I. 1 1  LCONIUC  372. I  *AG| , II AG2.INO, I  NO 1 .1-02. INO) . 

100  A(AO  ll.l.tVWlil  ICON  l ,LC0N2«I AA*| .1 AA32.I NO. INOI • IN92. I NOt. 

•  I  Mlll.JM.22l.fvT4 

I  fOANATI  IK, AAA.  II.  Ill, 2212. M.AI 

:  •••••••  ihis  is  iM  coc  tNsrttt  c»fc«  •♦*••• 

C  IMfO'.l)  291.191 

C  AOVANCf  THC  VfAA  10  COUVTfA. 

101  I  •  I  ♦  1 

C  TtSI  M  VIM  10  COUNIfA  CCffSS  ALlOuAtLf  NUflfA  —  l.f. 

:  NHCiHfA  :mj  oo«s  not  contain  mg/l  VfAA. 

Ifll.ci.i’livim  CO  10  290 

C  ICSI  CIVCN  VIM  AGAINST  AfffAfNCf  TAtLI  /NVt A/.  TUI)  t?|ft 

IfllCONl.M  .NVfAl  l»l-|H  CD  TO  101 
If  HC0N2.NT  ,*.Vf  41  2*1  II  GO  10  101 

C  HCh(  ONLV  If  GIVfN  VC«A  NATCNCO  —  60  TO  Nf»!  STIf 

C  INfLlfO  tv  VTAt  10. 

GO  TO  ISOO.  Ml, 102.101. TOA.SOt.lOtl. I 
C  Hf At  ttCAUtf  VTAt  IS  /At  fUAT/  — 

C  MUST  Of  It  AN|  M  WHICH  SUMffOAl  IS  MANTIO. 

C  INITIAL  COUNIfA  fOA  AffOAT  AAGVMNT  10. 

900  I  •  0 

C  AOVAVCf  AffOAT  AAGUHfNT  TO  COUNIfA, 

110  I  •  I  •  1 

C  TtST  MHfTHfA  AffOAT  A  A  GUM  NT  COUNIfA  MCffOS  VI'ACA 

C  Of  ALLOHAALf  A  A  CUNf  NTS  —  l.t.  AAGifTCNT  IS  NCI  LfCAL. 

If  I  I.GT.NAAMGI  GO  to  292 

C  If 91  GIVfN  AffOAT  AAGUMNT  AGAINST  AfflAfNCf  TAIL!  /MAG/. 

C  TM9  ST’fS. 

|f I IAA61 ,Nf ,NAAGI 2*1*111  GO  TO  910 
IM lAACl.Nf .NAAGI  2*1 II  SO  TO  110 
C  Hf  Af  ONL  V  |f  AffOAT  AAf.WMNT  NAlCMO. 

C  NO/  GO  T.l  AffAlfAIATf  SUAAffOAl  CAU  INC  GfOUfNCf, 

G9  TO  I AOI, A 92. A) 9, A OA, ACS. t€t, AO? 1 1 1 
C  Hf  Af  If  /TAUrtf  LIST/  SUAAffOAT  IS  MLNTfO. 

C  AOI  CALL  OVTALAVItHIAfLST.2,0,01 

■"  AOI  CALL  TAfLST  '**  ’ 

69  TO  ft 

C  Mt Af  If  /TAOOf  OTCK/  SUOAffOAT  IS  NANTfO. 

C  A02  CALL  OVf AL AVItHTAfOCA, 1.0,01 
AOI  CALL  IffOCA 
G9  TO  tt 

"C  ‘  HCAt  If  /UNIT  ALLOCATIONS/  SUAAffOAT  IS  NANTfO, 

C  AOS  If  TlOAO.Nf.ll  CALL  OVf *1 AVI AHHOAOf A,| .0.01 

AOI  If  IIOAO.Nf.il  CALL  mIAOCA 
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JOvVtAM 

OODtvl* 

J00v»t*J 

MlANlOv 

M 

IN.JU/WO 
Oil.  A  2*2 
MfUl.Au/ 
OtdUAfM 
M/oTblJ 
•01*71*/ 
0/0*12*1 
•00*11// 
*0 **!«*/ 
Ml*  ft** 
•GW  ft// 
•11/11*1 
Ull*2/w/ 
0*00)90/ 
00J1/M/ 
11*1/111 
•L0/.21/ 
MwDll 

1 10 //AN*/ 

01  Ow«  10/ 
10/*«tJ/ 
OOO/aTI/ 
•11/AtUl 
•01*19 11 
001*9101 

Oltlvt** 
101*921/ 
•01*111/ 
01*1  AW* 
OUWAM/ 
IWOwAWl 
000*920* 
00C1A/1/ 
J1//A91/ 
1101/01/ 
0/11/1/1 
Hi.  1211 
00011/01 
0001 0*1/ 
000*0/1/ 
00*1 It*/ 
00/10201 
000**01/ 
000.09*/ 
•0011/11 
01/.  Mil 
000*  M/l 
10*M>1/ 
/OO.I **/ 
0001190/ 
/Ol.ltl/ 


/ 


NINAIA  «H(  (Ml|» 

.C  .  t*u  o*c«i»*u#atoc»i.4,o,#»  _ _ 

CUl  UXAt 
69  fO  M 

:  MCM  1 f  /MtCitlK  cost  AMO  ItlUKTN  iimhkim 

c  It  0111(9. 

C  AO*  CUl  OVt«l*V<ArtCifSfA(t.O.Oi 

A 04  (All  Ctt$t«  .  . . . . 

61  10  44 

:  mhi  if  /finer  ur*«»  mom*/  it  Mint. 

C  40$  CUl  0V|AltTI4>«VuN44V.4.0.0l 
40$  CUl  tllU4« 

60  to  «• 

C  N(«(  If  /'JNt  I  i'lffflM  KfOII  /  It  NANtlO. _ 

:  40*  If  IIOO.4t.9l  CUl  Oft U  AVI AN  tOAMA •  I  *0  .9) 

400  If  1 10*0. Ml. 01  CUl  I.U9II  ... 

:  cau  nriAiAviAHWfou.t.OiOi 

C All  $U*OAI 
60  tO  «« 

C  Ntu  If  /IlfMM#  tAOOUItr  MfOATf  It  nan I 10.  _  _  .. 

:  40T  CUl  0V»U*»IA«»ll$t», A,  9,01 
40T  CAU  tltttf 
60  10  44 

C  NIK  If  VIM  1$  /til/.  INttlAllff  HCUKAT  CCUNflA. 

C  CWAAIMtlV  UW1I9 

tot  OCtUM 


1401  It  fill  ON  MMICM  If  tOlN 


Hf  4  f  If  Vfll  It  /I1WW.  MINI  I NO  MfOOTM  NfltACT  A  NO 
•  HUM  10  ff 0*1  f  f0«  T(AN|NA tICN.  _ 

mi  cui  ticoNim 

Milt  4,« 

o  rat<utitN),)}Hiw  o*  (stiff  iM  /  cwN  co  ••fio.i.ON  tccoNOtt 

CUl  Ovl«iAvit*<nv»A.n,0.|i  .  ... _ _ _ _ _ ... 

CAU  OvI*14VI$mCJVM.!0.9.II 

CAU  COM*  . .  . 

C*U  covia 

•I  I  JAN 

Hf *1  If  VIM  It  A*.A|A0/. 

to  4|  iNfut  it  locAtio  —  t*f:«  of  tAfiir  fifvittro. . 

I*  t  IN0I.M.1. AO.  1‘tOI. 41.111  60  to  104 

INI  1 1  Al  III  4ft  KM  AfCOffNt  (INNlIt, 

I  •  0 

AOVANCI  Nft  Wfl  AA6UNI4I  CDlMII, 

I  •  I  •  I 

fit!  If  61 WN  Nft  t»f»  NAtCNfO  AN  UlOhAOll  CM  — 

Nft/>4  0  Of  OMINA. 

If  11.61 .11  6J  10  19$ 

lit!  6IVf  N  4ft  |v*|  AACUUNt  *6*1  Nit  flflfl  ACI  HAH 
/NfttVf/.  t NO  ttlft. 

If  IIAA6I.N(.4fttVfl|*|.| It  60  TO  A 00 
If t  Iff 6I.NI .4f$tvfl!#lll  60  tO  400 
C  Hftt  OH*  If  61  VIA  Nf$  tiff  NAtCNfO  —  60  1C  ffON* 

C  INfUt  f  f  ADI  *  • 

C  CAU  fiUMAoif.KII  I 

111*1 II  •  till 
llt*t II  •  IVU 

_  61  10  lAlO.AIOl.l  _  ..  , 

C  OftINA  MAMA  ••  INOI  •  INfUt  CAfl.  I  Ml  •  If  CAtl. 

AIO  CUl  IMOOf 
60  10  Alt 


c 

c 
c 
c 
c 
c 

>0« 


c 

c 

101 

c 


969*. 199 
09911 A  9* 
OOollt** 
999.. 1** 
99**1191 
0 0011/99 
999 l/**9 
6901 1*99 
6001!$** 
9091 If *9 
0601119* 
06011A69 
0991*4** 
99011*99 
00011199 
90911/9* 
0691119* 
0001149* 
•901 »$** 
999* If 9* 
00911191 
9991  >A9. 
999*1*1. 
0091*99* 
999141** 
169. f  .** 
OOOlflOw 
99914*99 
94914$** 
06.14*9* 
.0991*19* 
9091 ff** 
•0014490 
0091199* 
90*1*119 
999* »/9* 
90  91$>9* 
9991*4*9 
•001**99 
9991**** 
•99*$?9* 
0001>*09 
09*. >49* 
999*  f*l* 
OOOtfU* 
999*4 119 
•991**** 
0691*49* 
90916$*! 
999***91 
9191  A!** 
9001  »*9* 
9*91 *$9* 
0901 19*9 
099*119* 
00011/9* 
0901 r i*9 
0991 r*>9 
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NCNtf A  NANC  C0N4CA 

C  MSM»0  ACA3CA  --  MUNCTflS  AS  AOA  OAACAO.  _ _  *0317»*J 

420  call  iaadna  30*174*3 

.  42>  CAU  S01ST4  003177*3 

03  ro  tt  3001 74 *3 

C  UNUSCD  3001  7V*3 

S0A  ACTUAN  03O143J* 

C  UNUSCD  303*1133 

SOS  ACTUAN  3031*2** 

C  UNO SCO  3631  Ai** 

104  ACTUAN  060*443* 

C  HCRC  I A  UN'CCOCNItAOlC  VCA4  CNCnUMHAfO.  AAINT  OIAONOST  IC.0*0i»  >** 

MO  MINT  2.1CONI.LCON2  0061 *6*w 

I  AJAN4TI  22H|UNAfCOGNI24tl(  VI A»—  .244  .tH-SK  |AAf  0.  I  36*1*73* 

CO  fO  t"  “  '  06Ql**dJ 

C  NCAC  I A  CNDAIIC  f  NCOUNTCACO  Of  AOM  VEM  /CNOACA/.  0001AV0S 

Ml  aaini  i  owuivo** 

S  A0A*AI||7Hl*Af  fUTUAC  COA  (NCOUNTCACO.  I  3G3.V1** 

STOA  30010203 

C  NCAC  (A  SltfCN  AAOUNCNT  OA  VC  At  /ACCOM/  IS  NCT  KCAl.  303103** 

Ml  aunt  A.  1*101.  MAC!  333*V*v* 

A  ADANAT  ( 27M|UN4f C3GNI 7A41  f  SUAAfAOAT—  .2A4.10H— SAl  AACO.  »  0031*3** 

CO  TO  00  03010403 

C  NCAC  IA  01  VAN  AAOUNCNT  OA  V(AA  /SCI/  IS  NOT  UCAl.  003147*.* 

Ml  AUNT  S.IAA01.  IAAJI  3301SA** 

I  AOANATI /4H|UNA(C0*NI  CASK  VAAI  AIM  —  ,IAA,  »0N—  SA  I AACC  .  I  0031*003 

CJ  13  tt  . .  33 32303* 

C  NCAC  |A  A  Nf (DC 0  CHUNG  AAAAMfTCA  IS  (CAO.  003231** 

MA  AAINT  7  000* 0203 

7  A3AMATI A4M|NfCf SSAAV  AAAANCTCA  AISSINO.  A0IN3UM  SA|AA(0.l  3302*13* 

CO  TO  ««  003234*3 

v  NCAC  |A  Cl  VAN  NAS  AAAI  AAOUNCNT  OA  IA.MAO  IS  ILICCAl.  000/0  >C* 

MS  AAINT  t.lUCl.  I1A0I  33*234** 

•  AO*  NAT  I  27N  UNACCUOV 1 1 A  tl(  IA  SVSTCN—  .7AA.ISM—  304  *111(0.1  033237*3 

SIOA  0302340* 

C  NCAC  |A  IA  SOI  N  IS  CIVCN  AS  INAUT  ON  OTMfA  THAN  T  wCI  OA  03323*0* 

C  TAACU.  3032133* 

Mt  AAINT  t.INO!  0032110* 

0  A  JANA  T I  SN  TAAf.IJ.2tM  NOT  AUCMCD  AC*  IA  SOLUTION..  303212** 

•  SAM  ONI  A  |  AND  12  A*f  OA.  30  A  Alll'O.I  333*13*3 


EJibjnw  ii2ii:n,iiri jrm — 

V  OCT 


74 


4** IDO  IS  4  AOATAAN  IV  AUNCTION  SIN AArtOAl A  TM4T  ACC* ATS 
4  S-DIOII  INTCCCA  AS  ONC  CAllINO  AAAANTIt  AND  AC  I UA  NS  Tm» 

>  OIOMS  AS  1  HOlf  •  I  TM  CNAAACTAAS  AS  AOANkl  AAAAN(T(AS. 

IDO  cuts  AUNCTIJV  INTHOl  ANJ  IS  USTO  TO  AACAAAf  UNIT 
IMNIIAICAT  ION  NM*tC  A  A  AOA  USC  IN  NWU  404  A  NO  CCIUNN  NAA(S. 


I  ...S-OIOIT  INTCCCA  INAUT  AOA  4Af 41*  V*  AND  CCNVMSION 
AAON  INTAOAA  TO  HOICAITM. 

1 1..  *l(  A I-N3ST  0101  T  AfTUAMO  AS  A  KHIAITh  Ch/ASCTCA 

12.. .5CC  JVA  0101  T  ACTUANCO  AS  A  KUIMIIm  ( HAAAC  TCA 

15.. .410HT-IOST  0101 T  AfllAINfO  AS  A  MXKAITH  CHAAACI (A 


1.33/1 
3*3*  1  Sw* 
3*3*1*** 
300217** 
3332  It** 
3*32  it** 
33*223** 
*032* 103 
3*3 222*3 
03322A** 
30*224** 
33*22  S33 
363224*3 
00022733 
30*22433 
30022433 
3332*333 
00023103 
0*3*  3233 
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MEMBER  NINE  CONNER 


C  ._  ..  BREAK  APART  DIGITS  _  _ _  00023300 

C  00323*0  3 

11  ■  t  /  133  ...  ..  _  ...  0C324503 

'll  •  I  -  11/101*10  0 002Jo00 

12  ■  I  I  -  (11*100  »  13)  I  /  10  0002J7J3 

C  03G2ioJ3 

C  CONVENT  EACH  DIGIT  FROM  INTECEN  TO  HOLLERITH  BV  N  CALI  ..  0002JV0G 

C  TO  FUNCTION  INTMTL.  00 02*003 

C  .  0002*133 

11  •  I  NT  Mill  (  111  0032*233 

12  •  INTH3LI  12  I*  _  0002*300 

II  •  1NT  "311  III  0JJ2**0j 

C  .  .  0002*330 

NETUNN  0002*600 

C  JO  02  •*  700 

_ END _ 0002*6xj 


FUNCTION  InTmULUI UuUTTTjT 
C  0002 500j 

C  22  SENT  TO  .  .  _ 30023100 

C  303&520w 

C  INTMOL  IS  A  F3KT4AN  IV  FUNCTION  SUBPROGRAM  THAT  ACCEPTS  AS  00025330 

C  A  FONNAL  PARAMETER  AN  INTEGER  DIGIT  0.1.. ...9)  ANC  RETURNS  33w25*0» 

C  THE  HOllENIIH  CHARACTER  FOR  THAT  DIGIT  I2EP0  ON  NUII)  FOR  1*1 ,9IG302»»00 

C  0j02>ojj 

C..  .  I... INTEGER  0.1.. ..OR  9  _ _  _ _  00025703 

C  00023000 

C  ...  0002390J 

COMMON  /SYMBOL /NSVMB 1)7  I  0002oG0j 

C  .  0002w  lOO 

C  OG 026  200 

C  .  .  IF  |  IS  NEGATIVE  OR  GREATER*  THAN  9.  PRINT  »N  ERROR  MESSAGE  J03*»4Ju 

C  ON  LOGICAL  UNIT  6  AN3  TERMINATE  'ONGEN  EXECUTION  BV  STOP  0003  0002**JJ 

C  .  .  0032*533 

IE  II.LT.0.0R.I.GT.9I  GO  TO  20  0002*600 

C  00026700 

C  IF  I  IS  1.2. ...OR  9,  ITS  HOLLERITH  CHARACTER  IS  IF  ARRAY  NU.  00023*33 

C  . . . . .  00  02  o  VO  j 

IE  (I.EO.OI  GO  TO  10  0G02T003 

INI  MOL  •  NSTNBI  1*271  00027103 

RETURN  00027200 

C  00027330 

C  IP  I  IS  0.  ITS  HOLLERITH  CHARACTER  IS  VARIABLE  2IR0.  00027*00 

C  .... . .  00*2/503 

10  INIHOl  ■  NSVNSI 271  00027603 

RETURN  00 V2 7 703 

C  0002/003 

C  0002/933 

>0  PRINT  SO. I  00023030 

10  FORMAT! IH1/////1H  ,*2H*****  FUNCTION  INTHOl  WAS  CALLIO  WITH  I  -  . 100024103 
•S.ltH  (NOT  0.1. ...OA  911  0032*203 

STOP  0001  0002*333 

C  0002**33 

C  03  32*53* 

_ END  _ _  Jv  3. 3**3 


FJNCIION  BCIAI  NI.N7.NS.N*.NS.N6iNT.N*I  333.2/33 

C  INTERN ALL V  CFILCD  WHENEVER  Ih|  BETA  VALUE  OF  A  VECTOR  IS  00022*33 

C  WRNtEO  INO  CASE  I  IS  IMPLIED.  3032**03 

C  All  HNS  BET*  VALUE  OF  VfCIO*  NANIO  N|  .N2.NS  .  A*  .  N3.N6.NT.  NBO  J0.2333 
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UU  I  ouo u 


MEMBER  NAME  CONKER 

C0MM0N/SYN30L/NSVM<M J7I  _  _ 

COMMON  /ANS/AI  3,25031 

COMMON  /  S T  A  T/NCOL I  3) . NROM I  3)  .CREAOt  31 

COMMON/ l ON/NAM  E I 2  I 

DIMENSION  13(3,25011 

EQUIVALENCE  (IH.A) 

C  RUT  FIRST  F 3UR  CHARACTERS  OF  VEC  NAME  IN  NAME!  1 1  ANO  2ND 

C  FOUR  IN  NAMEI2I.  THIS  TWO  WORD  USE  IS  A  CONCESSION 

C  TO  IBM  360, S. 

NAME  I  II  -  NAME4<  U.N2.N3..N4I 
NAMEI2)  •  NAME4INS.N6.N7.N8I 
MCOL  ■  NCOLI1I 

C  BEGIN  SIMPLE  SEQUENTIAL  SEARCH  OF  NAMES  IN  /  IB  /. 

01  100  1*1. MCOL 

C  IF  NO  NAME  MATCH,  CONTINUE. 

IFIIBll.ll.HE.NAMcUII  GO  TO  100 
IFI  IB(2, II.NE.NAMEI2II  GO  TO  ICO 
C  HERE  ONLY  IF  NAME  MATCHED,  RUT  CORRESRONOINGBETA 

C  VALUE  IN  BETA. 

BETA  ■  AI3.II 

C  ANO  RETURN. 

RETURN 
100  CONTINUE 

HERE  ONLY  IF  NO  NAMES  MATCHED,  HENCE  ZERO  BETA  VALUE 
IMPLIED. 

BETA  •  0.0 


RETURN 

END 


IJTOIMlIiWnttl 


I  1C  ASF  ,N1  ,  i2.Ni,,4,NS,  NS, 

PfOAER  1.4  —  2 1  FEBRUARY  1470 

INTERNALLY  CALLED  WHEN  A  CASE-SPECIFIC  BETA  VALUE  IS 
*  *  WANTEO.  RETURNS  BETA  VALUE  FROM  IPCASE  /ICA$E/  FOR  THE 

VECTOR  NAME!  N1 , N2.N3.N4.NS.N6 ,N7 ,N4. 
COMMON/SYMRIIL/NSVMBI  371 
C0>  ON  /ANS/AI  3,24001 
COM-'ON/ION/NANEI  21 

COMMDN/STAI/\COLI  31 .  NROWI  31  .CRFAOI  31 
OIMFNS ION  18(3,2)001 
EQUIVALENCE  IIB.AI 

RUT  1ST  4  CHARACTERS  OF  VEC  NAME  IN  NAMEIll  AND  2N0  4 
IN  NAME! 21. 

NAMEIll  «  NAME  41 N 1.N2.N3.N4I 
NAME! 21  -  NAME4INS.N6.NT.Nfl) 

SET  SEARCH  LIMITS  FOR  ARRRURRI ATE  CASE.  . 

TEST  FOR  CASE  1  WANTED. 

IRMCASE.NE.il  GO  TO  211 

HERE  FUR  CASE  I.  SET  LIMITS  TOR  SEARCH  TO  THCSE  Of  CASE 
I  COLUMN  STORAGE. 

200  LCOL  ■  1 

MCOL  •  NCOLl 1 1 
CO  TO  2 SO 

HERE  IF  NOT  CASE  1.  SET  LIMITS  FOR  ICASE.NC.I. 

210  LCOL  •  NCULMCASE-ll  »  1 
MCOL  •  MCOMICASM 

BEGIN  SIMPLE  SEQUENTIAL  SEARCH  OF  ICASE  NANIS  IM  /IB/. 
2S0  01  100  l*LC3L.NC  IL 

If  NAME  00 E S  NOT  MATCH,  CONTINUE. 

IRIlBII.II.NE.NAMHm  GO  TO  ICO 


SET  LIMITS  FOR  ICASE.NC.I. 


00029100 
000292oo 
00o2930o 
OU  J2  /40o 
30029) Jo 
Jbw29ooO 
i  00U29  7uj 
Jo o294jj 
OtOiVVjJ 
00040000 
00040100 
00040200 
00  040  4 
0 00404 Jo 
00033)00 
00U4O6UO 
03030 TOO 
UOoioBJJ 
w3w40930 
00031 C  oo 
OOOoiiOJ 
0004  I20o 
OooSl 400 
o0oi.400 
0004  DUu 
0004 16oj 
U0041  /OJ 
00041 WuU 


tfO.iiVU 

0004 2 Joo 
00042 1»0 
000422O0 
000*2 jjJ 
G30324oo 
03042S Jo 
330*2600 
UO042  To- 
Uboi26Jd 
G0042V3o 
O0w44o00 
oOoOilwJ 
000**20* 
UUJ444oO 
Ob  GO  44oo 
U00445JO 
00o4463o 
UUU44  Too 
000 442Jo 
0OO4340J 
0U0J4OJJ 
30044  UJ 
Obo44<Oo 
00044 J Jo 

3004*400 
Ooo44*jj 
00044WOU 
33044 ToO 
3G044600 


/ 


nooooono  I  no  o  on 


*■ 


MEMBER  NAME  CONREP 

.  IF  (  I B ( 2 •  I )  ,NE . NAME) 2 ) )  GO  TO  103  .  . 

HERE  OUT  IF  NAME  MATCHED.  PUT  CORRESPOND  NC  BETA  VALUE 
IN  HETA.  ' 

BETA)  ■  AI3.I1 

AND  RETURN. 

RETURN 
100  CONTINUE 

HERE  ONLY  |F  NO  NAMES  MA TCHE 0— HENCE  0.0  RETA  VALUE  IS 
IMPLIED. 

BETA)  -  0.0 
RETURN 
END 

FjNilUlN  8VUI’ll,N2,N).M4,.ND,Nb,N7,l,SI 
PFOREP  1.4  —  26  JANUARY  1470 

CALLED  INTERNALLY  WHENEVER  RMS.  PI,  OR  LOL  VALUE 
IS  NEEDED  AND  Cl SE  1  IS  IMPLIED. 

RETURNS  VALUE  FUR  ROW  NAMED  Nl ,N2 , N1 ,K4 ,N5, R6, N7,NB 
RHS  VALUE  FOR  /  BVAL  /. 

PI  VALUE  FOR  /  PIVAL  / 

•  LOL  VALUE  FOR  /  RIGL  / 

ENTRIES. 

COMMON/ SVMSUl/ NS  YM  At 371 
COMMON/RNS/KNATI  4,000) 

COMMON/STAT/NCJU  3),N40rf<3l,CREAD(3> 

COMMON/ I0N/NAMEI  21  . . . . 

DIMENSION  IRIS. 400)1 

E9UIVALENCE  IIR,R.MATI  _  .  . 

M  -  1 

CO  TO  90  __ 

C  ENTRY  PIVAL 

ENTRY  PIVAL  INI  ,  N2 ,  N3,N4,  N5,N6,  N7,Nt  I  _  _ _ _ 

M  •  2 

60  TO  40  .  _  . 

C  ENTRY  RLCL 

ENTRY  KLGLIN1,N2,N),N4.N9,N6,NT.MI 
M  •  J 

C  PUT  1ST  4  CHARACTERS  OF  ROW  NAMED  IN  NAMEI1I  AND  2N0  4 

C  IN  NANCI2). 

40  NAMEI1I  ■  N4N*4( N 1 < N2.NT.N4 ) 

NAMEI 2)  •  NAME4IN4,N6,NT.NB) 

MROR  -  NAOMI  1 1 

C  BEGIN  SEARCH  OP  ARRAY  /  IR  /  FOR  NAME  MATCH. 

00  100  1*1,4414  _ 

C  IF  A  NAME  OOES  NOT  MATCH,  CONTINUE. 

IF  I  |RI  1,  I  I.NE. NAMEI  1 1 1  60  TO  ICO 
|F|  |R<2,II.NE.NAM£|2II  CO  TO  100 

C  HERE  INLY  |F  NAME  MATCHED,  BRANCH  ACCOROING  TO  TYPE  0*  * 

C  VALUE  SOUGHT. 

...  60  TO  1110, 111,112), M  _  .  _  ... 

C  RETURN  RHl-VALU*. 

110  BVAL  •  RNATI4.il 
RETURN 

C  RE  TUAN  PI -VALUE. 


060349  JO 
wwuJSOOU 
JJwJslOJ 
JO  Jjiiuj 
OOwJSJOJ 
OOjJ'j 444 
0OJ)j40j 
owuJ5 jJj 
OOjHIjj 
00035*44 
00  43>S>44 
OOOluOuj 


OOuit/OJ 
0U03o)64 
0003*404 
OJjJoijj 
000i*4UU 
0343*7 uj 
JJJiojjj 
OOUjoVJJ 
06  037444 

36037100 
0<J<JJ7<JO 
33437304 
0003/4 Oj 
6003730m 
06437*44 
60337704 
06047*43 
G00J7U0 

OjjiiJjj 

3001*  lOu 
0604*234 
6043*3 04 
06  03*404 
3003*344 
3403**34 
3040*744 
3003**34 
0633*933 
00031344 
403*1)04 

0333W3J 
00039344 
U6  3314  44 
433*9 >43 
00UJ1*44 

36039734 
04439*34 
40039944 
4W44  3444 
36343.44 


111 

PIVAL  ■  RM4HJ.il 

33343244 

RETURN 

003433 04 

c 

RETURN  LCL-VAlur. 

>43*4*44 

112 

RLCL  •  RMATI 9,11 

443.4)44 

RETURN 

00066*04 

313 


/ 


MEMBER  NAME  CONKER 
100  CONTINUE 

C  HERE  ONLY  IF  NO  NAME  MATCH*  HENCE  ZERO  VALUE  IS  IMPLIED* 

BVAL  »  0.0 
RETURN 

_ |nd _ _ _ _ 

FJNCTIUN  dVALII  lCAS£.Nl«N2.N).N4.N).li4.i,.7  iWl 
C  PFOR'P  1.4  --  21  FEBRUARY  1973 

C  INTERNALLY  CALLED  WHEN  A  CASE-SPECIFIC  RHS •  PI*  OR  LCL 

C  VALUE  IS  RANTED. 

C  RETURNS  VALJE  FRCM  LP  CASE  /ICASE/  FOR  ROW  NAMED 

C  N1*N2*N}*N4*NS*N6.NT*NR 

C  RHS  VALUE  FOR  /  BVAL)  / 

C  PI  VALUE  FOR  /  RIVAL)  / 

C  LCL  VALUE  FOR  /  RLGL)  / 

C  ENTRIES. 

COMMON/SYNSOl/NSYNBI  )7I 
COMMON/ A.NS/RRATI  5*4)001 
C)NKON/STAT/NCOL<  SI.NROWDI.CREAOISI 

COMMON/ 1 ON /NAM*  1 2 1  ,  _  _ 

OIME.SIU'.  IRI5..J23I 

equivalence  hr. rum 

M  -  l 

CO  TO  90 

C  ENTRY  RIVAL) 

ENTRY  P I V A L > I  ICASE. N1.N2.N).N4, NS, NA.N7.NI) 

M  -  2 
CO  TO  90 

C  ENTRY  RLCL 1 

ENTRY  RL GL )t  ICASE  *N1,N2*N),N4, NS  *N6 , NT , NBI 
M  «  3 

C  PUT  1ST  4  CHARACTERS  OF  ROW  NAMED  IN  NAME!  1 1  AND  END  4 

C  IN  NAME! 21* 

90  NANEI1I  -  NANE4IN 1.N2.NM.N41 
NAME!  21  ■  NAME 41  MS.  N4, N  7  ,NA I 
C  SET  SEARCH  LIMITS  FOR  APPROPRIATE  CASE. 

IFI ICASE.NE.il  CO  T]  21) 

200  LROW  •  I 

N4UW  •  NR0WI1I 
C)  TO  2  SO 

410  LROW  •  NR3WI ICASE- 1 I  ♦  1 
MAOW  •  NAOAI  ICASE) 

BEGIN  SIMPLE  St'J'Jf NTIAL  SEARCH  OF  ARRAY  /|R/  WITHIN  CASE 
LIMITS  FOR  NAME  MATCH. 

ISO  0)  100  I  »L ROW.  MROR 

IF  A  NAME  DOES  NOT  MATCH.  CONTINUE. 

IFIIRtl.il. NF.NAMEI1II  CO  TO  ICO 
IFI IRI2, II.NE.NAMEI2II  CO  TO  ICO 

HERE  ONLY  IF  NAME  MATCHED*  ORANCH  ACCORDING  TO  TVFE  OF 
VALUE  SOUGHT. 

CO  TO  I  110.  Ill, 1121. M 
RHS  VALUE. 

110  BVAL)  •  RMATI4.II 
RE  TUAN 

PI  VALUE. 

11  PIVAL)  •  RMATI )• I  I  _ 

RE  TUAN 

LCL  VALUE. 

12  RLCL)  ■  RMATI S« 1 1 


00 040700 
0C04.B.W 
OU04UV00 
O0O410O. 
0004* 10 j 

0004130. 

wi/uAtlJ. 

00041 
00.41 6.. 
OUU4170J 
0Co4l4GC 
_ 0004190. 
00042000 
00042 IOj 
0004220. 
00  042  >00 
0004240U 
000«2Su. 
00U4260) 
00042  70. 
0004 240. 
0004290. 
OOO.iOOu 
0004)100 
0004)200 
0004JXJU 
0004)40., 
30043)0. 
0004)o0. 
0004) 7.0 
0004)9.. 
0..4)  V  >v 
0004400., 
00  044  IOj 
0.04420. 
00044 ).. 
0.  .4  «  4  .. 

00044)0. 

00044.0J 

000*470. 

00.444.. 

000.4VU. 

0004)0.. 
0004)10. 
0004 >400 
0004) )Oo 
00.4)4 Jj 
0004 > SO. 
0004)000 
.004) 7.. 
0004)90. 
0004>9o. 
0004 «... 
bJv.* 10) 
000442.. 
0004*)0. 
0004440. 


31*» 


/ 


MEMBER  NAME  CONREP 

RETURN  ..  .  .  _ _  _ _  . 

100  CONTINUE 

C  HERE  IF  N'J  NAME  MATCH.  HENCE  IERU  VALUE  IMPLIED. 

BVAL3  ■  0.0 

RETURN 

END 


iUJKJUIIM  3e»  I'll  l^ASS  1  .  . 

C  PFOREP  I. A  —  27  FEBRUARY  1970 

C  CALLED  IF  A  SUft REPORT  CALLED  BEFORE  LP  SOLUTICN  WAS  READ. 

PRINT  1.  ICASE 
STOP 

1  FORMAT  I  56H  ATTEMPT  TO  PROOUCE  SU3REPURT  BEFORE  IP  SCLUTION  READ. 

.  .  •  SH  CASE  .  I  3.13H  JOB  KILLED. I  _ . .  . . . . . 

ENO 


PFOREP  1.4  —  26  JANUARY  1970 

WRITES  STANDARD  REPORT  HCAOING  ANO  NU*"ERS  PACES. 

*  ITITLEIII  CONTAINS  LINE  1  ANO  MEOIAAY  ANO  MORKFILE 
NAMES  FR1M  OPTIMA  RECORO  PACES.  .  __ 

, COMMON /HEOO/ I T ITLEI33.3I. I PACE 
ADVANCE  PACE  COUNTER 
IPAGE  ■  IPACE  »  l 
OUTPUT  UPTIMA  RECORD  HEADING 
WAITE! 3.21  IITITLEII.il. I-1.33I 

2  FDRMATI tHl.3346)  ..  _ 

OUTPUT  CONREP  HEADING 

CALL  WR1  . .  .. 

RETURN 

ENO 


ipriMin  ■  L'isrctFitT 


PFOREP  1.6  —  26  JANUARY  1970 

WRITES  STANDARD  REPORT  HEADING  FOR  2-CASE  SUBREPORTS 
ANO  NUMBERS  PRO'S. 

COMMON/HEOO/I T  I TLE I  33.  31 .  IPAGE 

ADVANCE  page  counter.  _ 

IPAGE  ■  IPAGE  ♦  1 

OUTPUT  Two  OPTIMA  RECORD  HEADINGS.  _ 

WRITE  13.21  II  IMTIEII. Jl.  l-ltlOI.  I  I  T  |  Tie  « I .  Jl .  I  *  1 « ,  261. 

•  I  III TLFII.Ji>l«2Bt33I.J ■1,21 

X  POPMATI BH1CASE  1  > 2BA6/8H  CASE  2  .2BA6I 
OUTPUT  CJNREP  HEADING. 

CALL  WR1 

RETURN  .  _ 

END 


r  I  t'tf  I  .NUUI  I 

PFOREP  1.6  —  27  FEBRUARY  1970 

REAL  TO  HOLLERITH  FORMATTING  ANO  EERO  SUPPRESS  ROUTINE. 
ARGUMENTS  ARE-- 

1.  VAR  ••  REAL  VARIAHLE  TO  BE  FORMATTED. 

2.  NOICIT  —  NUMrttR  OF  PRINT  POSITIONS  I  INCLUDING 

D(C I MAL  POINTI  ASSIGNEO. 

3.  MOCCI  —  NUMBER  OF  DIGITS  TO  APPEAR  TO  RICHT  OF 

OECIMAL  POINT. 

IF  ■  -I,  THEN  NO  OECIMAL  PT  EVEN  IF  ASSIVARI.CT 
IOL. 

6.  MFIRST  —  FIRST  POSITION  IN  ARRAV  LIAflltOI 
ASSIGNED  TU  FORMATTED  VARIABLE. 

S.  MOOT  --  OCC.  POINT  CHARACTER  EUR  ABSIVARI.LE.TOL/ 


nirr.iinii 


0G0*o50J 

OOwwoojJ 

GJ0667JJ 

00066SJJ 
JO  J6  7  J  J  j 


uwt I iuj 
UJw6?2Uw 
00067 jOw 
00  w* 76Jw 
JO Jt 7 SOw 
.  Ow  JWoOJ 
0uw6770w 
JO  0*7  rOj 


UOUt/V JU 
wJOtBOJJ 
JC  V-.B1  JJ 
tfOOtBWOO 
0006B3JW 
JO j6b60J 
0006BS0U 
000646 j J 
wJW6*7Jj 
0LU6ABJJ 
.  0C06A  AJj 
0JW69JJJ 
0006V100 
JO  J692JJ 
0JJ693JW 


wt  tww 
Jw W69SJ J 
00j69o0w 
00 06V 70^ 
00069 60 J 
0006VVJW 
oWwSJOJJ 
OOwiOl JO 
oJoS020 j 
0o0>03 OJ 
60050 6O0 
WOoJJSjj 
OJJsJAjw 
0005070 J 
OwosJbJJ 


JOURIOOJ 
OC  .9  1  10j 
JJOjUJJ 
0U0>1 50J 
JwW> I 
JOwSi >JJ 
JOW>l*OJ 
wwwSl 7Jj 
•  vVJHAJi 
OwJSIVOw 
JJJiJwOJ 
JO J>*lww 
JJO>J200 


/ 


MEMBER  NAME  CONAEP 

C  9  IP  ALL  BLANKS  WANTED  FOR  ABSIVARI .LE.TOL. 

C  I  IF  OECIMAL  POINT  WANTEO  FOR  ABSIVARI. LE.TOL. 

COMMON /NPR I NT/ LINE I 1301 
DIMENSION  1 0 1 G I T ( 101 

OATA  iNEG/lH-/fIOOT/lH./.|AST/lH«/,tBLNK/lH  / 

OATA  IDIGIT/1H3.1H1,  1HJ,  1M3 , 1M',,  IMS  ,  1M6 , 1H7, 1H8 , 1H9/ 

C  VALUE  TO  BE  RFG/KOEO  AS  EERO. 

OATA  TOL/O.O/ 

C  SET  POSITION  OF  OECIMAL  POINT  ~  FROM  RIGHT. 

MOOT PL  ■  N3EC!  »  1  ; 

IF  INOECI.E3.-  II  GO  TO  10 
C  INSERT  DECIMAL  POINT. 

LINECNFIRST  ♦  NOIGIT  -ROOTPLI  •  IOOT 
C*  TEST  FOR  VAR  VALUE  SELCW  ZERO  TOLERANCE. 

10  IFIABSIVARI.LE.IOLI  GO  TO  500 
C  SET  VALUE  FOR  POSITIONS  OVERFLOW  TEST. 

SOI  NTFST  ■  IO**ND IGI  T 

IFIVAR.LT. 0.01  NTES1a19**(N0IGIT-lt 
C  PUT  ALL  OIGITS  WANTED  IN  INTEGER  PART. 

‘NOECIX  >  NDECI 
IF  INDECI.EQ.-ll  NOECIX  >  0 
DJN  .  VAR  •  llO.O«*NOCCIX| 

C  TRUNCATE  TO  INTEGER. 

NOUN  •  INTfOUMI 

C  APPLY  PSEUDO  R9UN0ING. 

TEST  ■  FLOATINOUMI 

TPST  •  OUN  -  TEST 

IFI TEST .GE .0. 5 1  NOUM  •  NOUN  ♦  1 

IFITES1.LE.l-0.su  NOUM  •  NOUM  -  | 

NOUM  •  lABSINdUMI 

NOW  CHECK  FOR  OIGIT  POSITION  OVERFLOW. 

IFINOUM.GE.NTESTI  GU  TO  170 

BEGIN  0NE-4V-0NE  PROCESSING  OF  DECIMAL  DIGITS. 

00  100  1-1. NOIGIT 

SKIP  IF  POSITION  OF  0(0  MAL  POINT. 

IPII.EQ.MOOTPLI  GO  TO  190 

otherwise  SAvr  current  shifted  result. 

1st  NOUMX  •  NOJM 

SHIFT  ANOTHER  PLACE  TO  RIGHT. 

NOUN  *  NOUM  /  10 

CHECK  FOR  LAST  NON-NULL  OIGIT  ALREADY  PASSED. 

IFI  NOUMX. NE. 01  GO  TO  I  At 

CHECK  F JR  POSH  ION  OF  DECIMAL  PniNT  ALREADY  PASSED. 

ZEROS  TO  BE  INSERTED  IF  STILL  RIGHT  OF  OECIMAL  POINT. 

IM  IFI  I.LT.N09TPLI  GO  TO  I  *  I 

SAVE  CURRENT  POSITION  IN  FORMATTED  AISULT. 

1*1  NSPOT  •  I 

AND  GO  TO  COMPLETE  PILL  CF  NON-OIGIT  POSIIICNS. 

CO  TO  I  BO 

SHIFT  LEFT  BV  FOwfR  OF  TEN,  THE  STRIPPED  VALUE  TO  — 

1*1  NOUM |  •  NOUN  *  10 

ISOLATE  THE  FOAMCR  AIGmT  OIGIT. 

NCHAR  •  NOUM  -  NOUMZ 

192  LINIINPIRST  »  NOIGIT  -  II  •  IOICITINCHAR  *  II 
190  CONTINUE 

C  HER!  IP  ALLOW! 0  SPACES  Ail  FILLFO,  IP  NO  "OPE  OIGITS. 

C  IK  T9  CHICK  FOR  SIGN  II. C.  GO  TO  l*»l. 

IP  I  NOUM, (  u.OI  CJ  10  US 


0*0*230. 
MOSZAj, 
COjsZsjj 
000*2601. 
0*05270. 
000*2*0* 
000*2900 
OOOiiuO* 
JG  0**1*. 
00*33200 
000*330* 
30033*0. 
*905350. 
00034*0. 
090*3  7 JO 
0JU3J#C* 

00. 5*09. 
00 95*1 00 

OwUitZOj 
G0.5*3*j 
09 05**09 

00U>*>UU 

0003**00 
0905*70. 
dUO**BO. 
0005*90. 
0..*»JJ. 
0003*10. 
30055200 
00 055300 
0U0*5*U. 
00035500 
309)5*0. 
0003  5  70. 
30.33*0* 
309**90. 
9.03*0— 
OOC**10. 
0005*2.9 
9003*39. 
0905**.. 
OwuS-3-- 
3*. 5**9. 
0905*700 
0093**.* 
00.5*  <3)0 
00*5 700- 
000*710- 
0005720- 
0.0*730. 
00-37*- 
000*750* 
000*7*0. 
9*95770. 
3-0*  7*.. 
00057*0- 
0005*000 


MEMBER  NAME  CONREP 

C.  HERE  EUR  DIGIT  OR  SIGN  OVERFLOW— PILL  ALL  SPACES  BY  *.$. 

170  00  233  I-I.N3IGIT 

LINEINFIRST  ♦  I  -  II  «  I  AST  .  .... 

200  CONTINUE 
RETURN 

C  HERE  IF  NO  FRCESS  DIGITS.  BUT  CHECK  SIGN. 

1SS  IFIVAR.CT.O.OI  RETURN 

Z  OTHERWISE  S3  SPACE  FOR  NEG  SIGN.  THERE  IS  SIGN  OVERFLOW. 

63  TO  173 

C  HERE  IF  OIGITS  t|0  NOT  FILL  SPACE  ALLOWED.  CHECK  FOR  NEG. 

1B0  IF  I  VAR. GT .0.31  G3  T3  403 

C  HERE  ONLY  IF  MINUS  SIGN  NEEDED  AND  THERE  IS  POOM  FOR  IT. 

C .  ..  INSERT  IT  IN  FIRST  FREE  POSITION.  _  _ _ 

LINEINF IRST  »  N3IGIT  -  NSPOTI  «  tNEG 
C  AND  IF  SIGN  USED  LAST  FREF  POSITION.  RETURN. 

IFINSPOT.EJ.NDIGITI  Rf TURN 

C  OTHERWISE.  ADVANCE  SPACES  USED  BY  1  — 

NS POT  ■  NSPOT  ♦  1 

C  ANO  GO  T3  BLANK  FILLER  INSTRUCTIONS.  _ _  .. 

.  CD  TO  400 

C  HERE  ONLY  IF  ABSIV/RI.LE.TDL. 

C  SET  SPACES  USE 3  TO  1. 

BOO  NSPOT  •  1 

IF  IN0CCI.E3.-1I  GO  TO  403 

C  .  CHECK  FOR  BLANK  OR  DOT  REOUESTFD  IN  DECIMAL  POINT  _  . 

C  POSITION. 

IF  INDOT .10.01  LINEINFIRST  ♦  NDIGIT  -  HOOTPLI  -  IBLNK 
C  HERE  FOR  BLANK  FILL  AS  NEEDED 

400  00  430  I -NSP3T, N3IGIT 

C  SKIP  POSITION  3F  Of C INAL  POINT— IT  IS  AlAfACY  PILLED. 

IPI  I.EQ.M03TPLI  GO  TC  430  _ _ _  _ 

C  INSERT  BLANK. 

LINEINFIRST  ♦  NO  I  GIT  -  II  •  IBLNK 
430  CJNTINUE 
RETURN 
_ END 


Tjicrm  wwr'H'.-rr 


3J03B10J 
0w0>4*00 
600>* 30» 
JO  33 4400 
Jo634>ja 
00  OS JoJc 
00034 ?0a 
000>4<>Ja 
OOUia *0a 
00 0>9oou 
JOOiYIJJ 
DC 03923- 
00039JJU 
0U0>94Jj 
00039 33a 
00o>9660 
06039 7aO 
JO 0>9B0J 
00 039 YOU 
00063waa 
06*6010, 
03360200 
0w96w Jaa 
U00«0 40a 
000*0 >00 
000*06 Jo 
000*0 low 
OCO6OB0J 

00  0*0  N  j  j 

OOOkiOO, 
OOUul 100 
63061jaa 
060*10  Jo 
0006l40o 
000*1300 
I  »0o 


Mam 


*9  JUNE  72 


MASK  IS  A  FUNCTION  SURPROGAAM  THAT  M*S*S-0*F  CMARACTEA  I 
OF  INPUT  0343  «R  ANO  AC  TURNS  IT  AS  LEFT-JUSTIFIED  ANO 
IIAO-F ILLEO  FUNCTION  VALUE  .  _ 

LOGICAL •  l  (I4I.VI4) 

INTEGER  IR,IERO/*H3333/ 

CaulVALCNCE  IITEMF.KI.IJTfMP.VI 


ITCMP  •  If  AO 
JUMP  •  IR 
■  All  •  VII) 
MASK  .  ITfMP 
RETURN 
TNO 


CihuN  5rrT4T7TT77777777IT777rC7T 


>9  JUNE  72 


o«i*ncT 

Jvw*ltaa 
9006193a 
9006200a 
000*2  Ua 
000* 22aa 
000*2 30a 
600k24oa 
0096230a 

000»2*3o 
000*2100 
060624 Ja 
000*2900 
DOW* JO 06 
aOw*3lwa 

000*3200 
000*3300 
J006  3 »aa 
aw aw 3  >» a 
000*3*ao 
000*3  Two 
00  a*  JBUa 
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/ 


DENSER  NAME  CONAEP 

C  NAME  IS  A  FUNCTION  S DEPROGRAM  THAT  CONCATENATES  ECU*  141 

C  LEFT-JUSTIFIED  H1UMITH  CHARACTERS  TO  FORM  ONE-HALF 

C  OF  CONFORM  IP  NOOCl  *0*  AND  COLUMN  VECTOR  NAMES. 


LOGICAL* 1  A1.A2,A),A4,XI4I 
INTEGER  X* 

EQUIVALENCE  IXR.XI 


Kill  - 
XI  2 1  ■ 
XI  31  - 
XI  4 )  • 
NAME4  • 
RETURN 
END 


A1 

A2 

A) 

A4 

XR 


G0U39JJ 
OUO»<»ODu 
00044 l JJ 
00 0*420/ 
OGvn»4  3uO 
UDwb*4 JJ 

000a* SO « 
000*4*0/ 
000/4 10/ 
000»4 iJJ 
030449JJ 
0Ow*»dJJ 
OOOailuo 
000*520/ 


• 

RP 

1 

- uemAuuhe  ~ai - : - 

CALLED  *T  HEADS  ANO  HEA0S2  TO  OUTPUT  CONREP  SUBHEADING. 
COMNON/HEOO/I T ITLCID).  SI  •  IFACE 

HA ITt  13.11  IPAGE 
.  AETUAN 

FORMAT (/ISX./tH  CONFORM  REPORT  OF, 

•  I4H  SOLUTION  VALUE  S.  10X  . 

R  24HICUNRIP  VERSION  1.0  4/ 721 t 4X .4HPAGI • 15/ 1 

FNO 

/G  J4  iSw/ 
000*5*// 
000**200 
JCL*5*0/ 
Ob0*5V0/ 
XO./O/J 
000/* 10J 
00/4W>/ 

'  suva'SuTIn?' 

c 

PFOREP  1.0  —  2*  APRIL  1 970 

000»*4J/ 

c 

UTILITY  ROUTINE  TO  EERO  OUT  AN  ARRAY. 

000*4*0/ 

DIMENSION  RMATINI 

000/4*0/ 

03  ICO  1-1. N 

00 0*4  A-Jj 

RMATIII  •  0.0 

OC  0*M/O 

100  CONI INUE 

Ob/**V/Z 

RETURN 

OOOA/OOJ 

ENO 

c 

c 

c 

c 

c 

c 

• 

• 

c 

c 

c 

c 

c 

c 

c 


9L0CR  DATA  MANS 

PPOAEP  A.O  —  I  NAV  1 9 TO 
COMMON/ SVHPOt /NSYHSI  ITt 


NSVNII  JTI 

NSTMR  CONTAINS  THE  CMIRACTTAS  THAT  ARP* AR  I N  CONFORM  IP  PCM/COLUMN 
NAMES.  ...ONI  CHARACTER  10  I HF  *0*0,  II F T- JUS T IF  I f 0.  IMF  DATA 
OCCLAIAIIMN  PJIS  5L4N*  ML  TO  THE  RIGHT.  IN  AN  E/*L*  EXECUTED  S*T 
OF  STATEMENTS.  C'JNTfP  Mts«$  The  CHARACTER  to  HAVE  ie*o  fill  TO  THE 
RIGHT.  NOTE  THAT  Ih*  UTTER  OF  CHARACTERS  IN  *IVM«  DIFFERS  FROM  THAT 
OF  TMt  CORRESPONDIN'.  ARMY  INCONCCN.  NSVM|  RUNS  THRU  TM  ALPHA  Rf  I 
POLLOtfEO  l»  THE  01  CITS  ?  TO  1. 

OAIA  NSVM«/|MA(lHR.tH(.  IHD.IHE  ,  |»#  ,  |MG  .1 HH,  |H|  ,  |  H  J,  IHR,  IK  , 

•  |HN,  |HN.  IHD.IHJ,  |HJ.|HR(|HS.|HT.|HU.|HV(|MJ.|HX.|HV.|HE,|H0. 

•  |H|.  AH/.  |H>.  |HR,  |H>.|H*.|hT,|M9(|M4,|M  / 


ENT 

PCTXTT3  TTTT7 - 

OVCPLAVI START. |.D| 
PROGRAM  INI f I 
COMMON/ANS/IRI TSDOI 


O00*F« // 
000*13// 
0 / 0*140/ 
00/4 Ti// 
OJimIAvf 
000*1100 
AfFaIFm 
JiiMlVjF 
OO/aiOUJ 
MHJU. 
Ju  0*4/0/ 
OOujR/Oj 
X/*<4// 
).  /4A  >  J/ 

Mur*  TDD 

OOOmOO/ 
000**00/ 
kAdlTU. 
iH>0*V<0> 
"T/v»»  I/" 
VLHTTJ. 
XhiVSJf 
OOmVrMFJ 


l»AN« 
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/ 


r*  on  ono 


MNAEA  NAME  CONMr 

.  _ cokhon/hedo/ititieioi.ii.imge  ...... 

CONNON  /0ABCA/I043 
CONNON/ANS/ Ml  133331 
CONNON/STAT/NCUM  3 1.2*34111 .CACAOI 91 
CONNON/SYNSUL/NSYNM  Jfl 
LOGICAL  CACAO 


Ml 


231 


CALL  SUiAOJTINI  IININ  TO  A|AO  THt  CO  HALITE  0INAA2  f|lf 
DATA  AS  OAITTEN  SY  C0N6EN  ON  CONCEN  LOGICAL  UNIT  II. 

CALL  •  IN  IN  .  _i 

INITIALIIE  ALLOCATION  AULE  COE«flCIENT  IAAAAVS  COIf.AJCOEfl 
OAXA  INOICATJ*  TO  THAT  Of  iHf  NATAK  GCNfAATOA  ICONGENI. 
IOAO  -  0  .  . 

INITIAL  111  OUT AUT  MCI  NUNAIA 

_  If  ACC  •  •  .  _  _ 

INI T  I AL I  If  STAATIN3  ANMIII  Of  NONTTAO  NOW  ANO  CCl'MN  YtLUTS 
ANO  INOICAT M  THAT  CAST  HAS  MIN  AfAO  TOA  EACH  CASI. 

00  SOO  1-1.9 

NCOUII  •  0  _ _ _  _ _ _ 

1*04111  •  0 
CAIA9III  •  .*ALSI. 

10  CINTINUC 

•0  *01  Ml.  IT 

NSYNAIII  •  NASAINSYNAIII.U 

IIAO  AO  I  IMO  AAAAY.  . . 

DO  >00  Ml.  23000 
IAIII  -  l.c 

<1*0  COLS  IN*0  AAAAY. 

DO  201  l«l.  1900  _  _ _ _ 

lllll  •  0.0 

•*  TUAN  ...  _ 


-ikjrmr  inn. 


_  030*0204 
304*2434 
OUOvYOO- 
OC  3  23-34 
00023.34 
0302-203 
0002-343 
3302-.-3 
30o2  4*34 
00  o  20*33 
3vu2w23- 
3C 373*04 
00320*33 
43021400 
-Oul.IJO 
0002MOO 
40471333 

34473*00 

300  71  *3- 
JJwTl-Jj 
3C373730 
00071*43 
0C371233 
03372-33 

..ooo  mow 
00022200 
3037**33 
0007*«0v 
M.IIK. 
00012  »00 

.  OOofllOtf 
03072*04 
3C -7**44 
0007*303 
00-21100 
3337**34 
OOOTAIOO 
MOO 


■ftHi 


II  NAY  21 
|*  NAACN  21 


this  suaaoutint  iujt  in  congtn  data  that  am  *1*71 

OY  CUNACA  A  AON  A  IhUV  fill  I  UNI  T  «|  «A|TTTN  ON  A 
CON GIN  Itn  AS  UNIT  II. 

AIL  INAUT  OAT  I  VAAIAILTS  ANO  AAA  AYS  All  A|AO  CONAlf  TIL*  IV 
LAMLIO  CON  ON  *L0:«  IN  ALAHAMTICAL  0*f*A.  _  .  ... _ 


CONNON  /AGG/NACG*.  ICOL  MUSI 

CONnjn  20tSCA<*/ST4NTM«  T.9I.0INI 2*01  .COST 1 2*01 
CANNON  /Iff /NTff.|ffl*«l A.II.ITA 1*0.  *1 
CUNNON  /AlOAAt/CiUfl  20(  2 1  ,K  iCOT  f  I ATOOI  .NAN/. NANI 
COMAIN  /•!  SOLO /NC 029 T  . A |<IM T .NHIN.AMINI 

INTICA*  DTN 


-44r>>44 

00021*04 
OOOTaTOo 
00-71344 
30371*44 
IINCTO  3347..  >4 

ccaatsaonoinooom.oa 

3037**43 
MUltMN 
3037**04 
0002**04 

ooor«*Ow 

00-1.134 
30-7**34 
00o2*«0o 
M>02»CG0 
0002*100 
3337*4  — 
0*42*334 
0002**00 
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/ 


MKMI  MMC  C03*(* 

mice*  tcciu 
c 
c 

•1*0  1*1  ST**T*,0T*,C04T 

•(*0  1*1  CU(* 

•(*3  i4i  Kjcuer 

•t*o  i4i  3*31. 343/, N:n*3T,*4u»4r 

•t  *3  141 

•  («0  141  MS64|tUll| 


•(TURK 

IS! 


COOTtSOO 
000  (4*00 
MvT  4/00 
MO/Moo 
000 Z»30o 
ooouto# 

100*44  0* 
(VOIvtM 
t»«r*U4 
000/*40o 
000/4SM 
0001449* 
MO  »4/00 


•ts:yjj>rT~-o45n - 

bOv/4  Im 

c 

0/(*ltVt  »OOi4.  1,01 

40  wZ/OOo 

c 

0*00*43  H340I* 

c 

•09? /t/0 

# 

• 

OUI  4U3C4U03  4UU  o*t»  uum  «xnc*,eot4> 

l*TC  4J**0*TI*0  0O0TTM0 

c 

usi t  ou:*  r  i\  osr  »*  u*.|f  iiisi'tin  »r*r*i 

IS'iftr  III** 

c 

H0C4TI.  Hjtoi*  IS  CUKO  Z403  *(W»4T  ••/!*( 

•  C *11000/(400 

c 

TO  «IX«T  1*  THIS  04T*  14  NOT  *l*t*0*  1*  THIS 

o*or*. 

OOOT/4V* 

c 

C0»*U3  / 0*9(4/  1040 

OCoT/IOv 

ocor/oww 

C0*H33  /0( 4:«*/4T**lH(  TSOI  .0T*II40I .COST! T40I 

900/1300 

C03333  /*( ;tt;/COI»l *J>)I.«JC"(» 10)001  ,***(, *l*t 

0  Ov/*mo 

C0**J*  /*(  401 U/3Z0  33  T,*4t*M  T,  ****■«  NM**U 

000/0100 

IM(U4  013 

OOO/t^v. 

IMO  •  3C030T  •  I 

Mw/*J9* 

1(30  •  *C03tT  •  *4U*4T 

MO/44TO 

J»  •  1 

•OOM4M 

3COM  •  414*1  •  *431 

•00/0*0# 

00  10  1  •  I0(  6. 1  (*3 

000/4/00 

03  >0  i  •  0l.*C3ft 

•Oo/JOO#* 

1*  (•  iCOl*’  tl-l* JCOT/I  it  / 1 0001*1 030. *(« DTMt  1 1 

CO  TO  10 

0001*000 

IK **  •  CJZUtMJII 

••v/OOoo 

l(*»  •  COMIJII 

0001*1*0 

4/coim tti  •  ttcjinti 

•00/>1„0 

COtMtll  •  COftIJI 

•9C/VM0 

CiCO/Kjl  •  11(3* 

00*1040* 

CO(*IJI  •  IT** 

04*M4oO 

11  3  01  •  1 

000/3 4W 

>0 

C03T|3U( 

•00/0/00 

10 

C J3T l*U( 

M0/34J# 

10*0  •  1 

0001*000 

*(  TU43 

000*0*00 

(30 

M0**i*0 

rjitJjrlv/  irU  ill 

vl *•*/*# 

c 

0/f*l**l 10*0(4, i.oi 

•0004  »Jo 

c 

*•  00*4  3  10*0(3 

000*o4*# 

00o*#4v0 

out  tiuuiM  *uti  out  itMift  iXMNcnn  mio  c«o*o*o* 

4U*»0*I(0  i*l*  0014  *04  U41  •*  V3IT  t»f*OM  *(*0*T  I  !UMO II 14*  00o*o/** 
4043*1 1 •  toll  14  lH<  V*«l  n«OI«  *4  I*  C03&I*.  in«c(«  It  CKlfO  K**J+*J 
MO*  ll*MI  M«0*(  t  C*U  tc  40*0*1  I*  tH|4  Ott 4  MMitVJ 

14  301  »U1»*  13  IHI4  (MM*.  *  0004U0* 

000*1*90 

(OMM  / 0*0(4/  1040  00441400 


:»a« 
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warn  MU*  COMM 

_  (WM  r»)l  |AT«I  rt*l  .(OtM  TMI 

CO«*OS  /4t .ftC/COMMCOll.v iCO<*  11X01  ,M*f,  MM 
{<Noa  /(|{)u/<9<)ii.atuMi(iiHHiaNiatf 
l*f let*  Ola 

MUail  •  Ko**l  •  aw»* I 
31  •  I 

•cot*  •  Mai  •  aaai 
0)  13  l  •  l.aoaii 
oj  30  i  •  ji.  rot* 

If  UKM'I  JI/nCC.*f.)f«llll  »  toil 
HIM  .  HiCO'fllll 

ri»»  •  coffoii 

_  .  «jco**un  •  hjcoimji  _ _ _ 

COfHJII  •  CO(f  I  il 
(JCOfflJI  •  II*V 
COffIJI  •  MM 
Jl  •  31  ♦  I 

>•  coaiiMt 
It  coal  lam 
mo  •  o 
t*u*  a 


_ _ ttMIJOO 

oOO*ltOO 
000*1  *00 

003*1  Ido 
03wJ I *00 
.  _  303*4*3. 
MtioJJ 
3034*  1 33 
33302233 
3030JJ 33 
00342*0. 

_  _  00302*3. 

33301*33 
300 *1700 
00*03033 
333*3033 
KoOtooi 

„  ...  _  .  .  .  033*1133 

003*3333 
300*1133 


foffwn  ■snorin' 


0V  1*13  vl  VX  113  •  I,  II 
MOCMM  Mill 


IMM  00111*1  IS  C0U.I0  |Mafi)Mi*iT  mu  **cm  it. moo  *n 
Ofltltvf  lao  SI  311  Inf  f  MCI  SIX  3110*  VOl'A  S  10*  US*  tv 
SUtsrOofMf  «(riMIS. 


tO*«0*  /f0tim/«l«SXI?O0,ll.l#*tQlt  tO0.ll 
coaaaa  ZOfSOiu/at  lail.aSJMf  .HfJoa.ofvtMti 
C0*a>a  SOI SC«f /sih*im<  ion  .dim  loot, cnsn  loll 
CO**J*  /Cuaoj/ioriiloi 
COaua/SVMOi/atvnai  III 


****** ** 
333*4.33 
Ott* 1*33 

_  .tttt  1133 
t3 3*1003 
103*1033 
300**003 
033**133 
300**233 
303**  3*3 
333*4*33 
0334**31 
0034*03.- 
3030*  133 
0030**3. 


000***33 

000*1003 

MlttfVf  *MICM  Of  1  tOSSIOM  VXUtlO*  costs  His  3VSI  HI*  MOO  333*>l3J 


l«  •  I3I0I1I  .334 >233 

tot*  >130 

033*1*3 3 

MtMCVf  C3M4I  jail  MX31IUS  lUUIS  _  .  033*SSJ3 

303*1*3. 

to  10  I  •  l.acoatl  30301133 

C*ll  OOHi33ioiam.il,  12,111  133*>*33 

nnxii.m  •  *i miiii, *ivn*iii,ii,i2, it, *11*41111  .otvi’Miii,  uoo*>*3. 

*  *11*41111  .KlvMIllll  3*34*3.3 

|!*t(AII, 1*1  •  f  OtSOt  1 1,1*1  •  C.*  ...  _  333**  10. 

ciaiiav*  3004*231 


tlioifvf  sjttQti  oaii  uxutio*  allots 

IM6  •  atoail  •  I 
11*0  •  3Com  •  MI3II 

to  20  I  •  lofo.lCM 

COU  tOHl03IOrMII.il, 12. Ill 


033*0l3l 

333***.. 

003t*>3. 

0304.033 

30.4*113 

333*0*31 

OVOOOf.3 

0 33*13.3 
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NINOIA  WAN!  CONAfP 

•  ksmiiriiNiTMiini 

imuhii.ui  •  fiwicuiiin  •  M 

I*  (FUASOLI  i'. III. CT. 0.2. ANO.FOAWlll  .III. U. 0.91  IMSOlllilll  « 
20  CONTINJT 


AITUAN 


COOAMOv 

9»0«Tjvu 
t  OUXfO* 
MxTAJj 

NNHw 

_ 


SUitAUlTI1.'  Tll»iJC< -  MkKiM. 

DVtAiAvi tiPOCi.I.OI  KvttlJ* 

FAOCAAN  TAFKK  M«J*2J J 

jHijg 

a  cau  io  this  aoutinc  is  faooucid  it  t«  viii-iipom  iioopk(A»i<«^ 

TN’S  AOJTINI  FA01UCIS  A  nOlHIH  »«C1  TH|  COMO**  KMl  SOtUT ION  uJjtliJs 
I HAT  IS  I*  r«t  S»N»  »«UT  AS  T«t  CAAO  0ff«  UUlFUT  OF  TM| 

M  SlICS  100(1  •  TM(  OUTPUT  OF  T4PCC«  IS  CA«0  IMCIS  CN  FQATAAM  ahI F4» 


LOCICAl  UNIT  N  I  TAPI  01# 


C0NM31  /ACSOlU/NCOlST#  NSJFAT  «NMA1.NFAA1U 
C0N10N  /OISCAP/STANfMT  Y»0l.0T*m)I.C03MTMI 
COMMON  /(**✓«**.  MM.**  M.ll.l  Ml  KJ.AI 

common  /roASOL/FOASou  mo.  21.1  mux  <7*0,21 

COMMON  /T|Tl(/|Tlll((OI#l  SAC  I  lit  I TPSNI21 
COVOT/STNUA/ltllMlITI 

AIM INO  10 

FAINT  CO10AI  UNITS  SFCTION 
INO  •  0 

X  10  I  •  I.NC010T 
CALL  TCTOI  OTNIII  I 
1ST  AN  *  STANTHMI 

Ml  III  IN#  SOI  flTII  1 1  •  INO #  1 1  Tl  TL(  I  Jl  •  J*l  #11  •  IISACIJI<J<I<  SI# 

•  <ITPSNUI.4«l#2I.ISTAN.FOASOtll.ll.|PASCU  1. 11 
COAT  I NO I 

FAINT  SUFF3AT  UNITS  SICTTCN 
INO  -  N 

IMG  •  NC01AT  ♦  1 
UNO  •  NCOIAT  »  NS'JFAT 
03  20  I  •  ItlO.ICNO 
CAU  TOTOI  OTNIII  | 

ISTAN  •  STANTHMI 

M1ITI  IN. 901  0T1II  I#  INO,  IITI  H(|  J|,J»|  #01  • II  SAC  I ll#4*l#9l» 

•  I  ITPSNIJI.  J>l#?l#  ISTAN,  FOASOill.il.  IMSCU  1. 1 1 
C3NTINUC 

INO  F  III  N 

AITUAN 

F3ANAlM4.l2.1I.TA«.A2.2A*,A).«t.l**.l9.P0.1#m 


VJ0<«*4.> 

UOMANuw 

vJMOv. 

09MN1A* 

UOUAPAX 

00V4N2U* 

UuUFFWtf 

XGpFSX 

OOOMOvJ 

MNTia# 

OUMNNOP 
OC *94024 
40X4IX 
0)M)i. 
OUKIP. 
440V4O- 

Mmnusuj 

>4494*4. 

44X474. 

XwV4*v« 

044949U. 
44X104. 
440M14. 
M.XMC. 
44X  1*4. 
00X1*4. 
00091*4. 
40X1*44 
Mtlfll^ 

44X190. 
XX244. 
40C92U. 
0*4922*. 
44092*4. 
Nv«l4.< 
90492S.. 
X492*.. 
*0411 1  J. 
00X20#*. 


/ 


n 


MWII  HAM  CONAI* 

ivMMi  ik  uroiior*i  .  „ _ _ 

It  net  TO  .  .  .  _ 

t  act  »» 

IWIUH  |«  WKOUMMf  ftl  C/ltKVt  HH  t«C  SUMMA  IMA  flttf 
Of  A  cm  If  M31  |A*f|9  »M  btf  1*  . . 

IOH...DIN  W*A*  •  of  A  WSlf 


c 

*4 

C 


c 

c 

c 


c 


c 

c 


(JAMM  /flfMSIfltltlll.liaCIll/ ltfl*l/» 


MAO  1 10**0140  M/ 1  If  I  Ht  1 1 1.IMt  II.  I ISACI  41.4*1 *11. I  If 11*141. 


•  J>UII 

MUM 

rOAAAII  1 4#  )ll*l,T**,lt,/A*.*l.*l.A*.A)| 


•Bnujrrar  iruir  ~~ 

OVf«iAV| Mltlf  .1.01 
MQ6A**  Infill 


It  M)V  11 


CO<Hii>i/CM(C«l/lfftfl/tl 

tiww  /MlCM/ftMlHl  f*0l.0f*Hf*9l,Cnttlf*9l 

CO»WH  /Iff  /Of  ff,f»H*ll  ».)l  ,f'Mk}.*l 

CUI»««0*.  /fO* »Ul  /» 04 Mil  U0./I,  IMMAIfA0.il 

CO**’o  Ah(/i  hi.Kffti 

CO-US  /MU  li/Oi/INH ,0101*1  ,*?*««, m*tou 

COno*i/tTn*X/Hff  hi  Ifl 

COnnos  /fill!/ If  I  fit  111 .  tl«CI  )l.  (Ill’ll  1/ 

HUM*  Off 


MulfO  10 
114*46  •  0 

till  •  0.0 
111/  •  0.0 
tftl  •  0.0 
tft«  •  0.9 
lltll  •  0 
llll*  •  0 

cm  um'ao 

o)  n  i  •  i. scorn 
cm  f  611  I  Of n  I  ||  • 

14101  •  f04VOCM.ll 

i*  iurifin.Nr.il  r.o  to  *9 

ultas  •  ii4sf.ii  ii 


000010)4 
4s 4 0*4.6 
00401144 
0061444. 
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•  IN  ,411  IN- 1,  II,  41 1  IN- 1,  )1,  MU4/W 

•  101 *2 I4NUNI t,4 II , ll ,)MSU9 ,44,1 9N1 9  PC RCIN33i2«l6/ 

•T/  . . 001  242/v 

•  1»  ,  21  )  J4,  AmSHN.  941,21 ,4MC0t 4 ,44,4MN4RG»ll  ,)NS'JM,44,  6012*)// 

•  9HTOI4L ,  )i , 4NC0FF  /  /312*a9/ 

•  IN  .2I1N0I1, 111, 9NTITLF, 144, 4HV4LUC.4II, 2121. 9H/41.UI, III,  0012/>6/ 

•  2(.9Ht9ltL,9*.  6N9T9  Ml  N,  1 1 ,1 0HM4K6  VALUE/  .  .  0012*6// 

•  IN  ,9N-  —  ,2(,2fUN-l,2l,9llN-|,4l,  0012*/// 

•  9N— ,2I,29IIH-|,24,9UN-|,4I,  00122*0/ 

•  91  IN*  1,14,91 9N - I  06124V** 

•  ,111  IN-  I/I  . . 

lINf  •  IS  0UUV109 

RETURN  ......  0312V«/J 

|N0  09,2V 999 
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4 J  •  REC3R9  19  4f  4E10  ON  UNIT  10 
I10C10  -  RECOAfl  LIST  Rf 40  CN  UNIT  10 
COMMON  /riTLE/IIIHMIl.l SRC  191,1  TPSNI 21 
C0NN0N  / I IOC  15/ II 9' 1 3 
IF  IRJ.Nt.  no:  191  60  TO  10 

RlCRSPACE  10 
60  TO  23 

IF  IKJ.6T.IL9C19I  60  TO  90 

REMIND  19 

ICNO  »  RJ  -  1 

IF  I IEN0. IE. 91  60  TO  20 

00  49  l  •  1, 1  END  .  . . _ . 

READ  110,901 
FORMAT! 10X1 
60  10  29 

IEN9  -  RJ  -  IIOCIO  -  1 
IF  IIEN0.1F.3I  60  TO  20 

09  60  I  •  1, ICNO  . 

read  110,901 

READ  119,791  JOTM.IITITLEIII , I -1 ,91  • 1 1  SRC  I  II, 
•  I  I TPSNI 11,1*1,2) 


1-1,31  • 
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UUi/OuUO 
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0614 I26J 
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. . . . . 

IftlfAML  U*C  1 1  19  Hu*«fAS  *•?  SMArA  IH  C0»’,w,,l  4«4#V  DM!  T00I  ■ 
*3«  NCOAJI  COA9AI  ADHlfft.tMIA  f Oft  N  Stiff  I  SJffOAl  UNIIS. 

AV  THA04  VttACf  It  fAIATTO  AfO  COHA  If  IffCUTION  It 
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•WAIT  •  NCONtl  ♦  NSUMI 
0)  10  I  •  1.NUN1I 
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WUl*ftU«J 

OOI4*16v 
Owl oft 2 J* 
3014ft)** 
0314«ftb3 
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•  4NFHA.4M  itW)  T(4H4AI\.*M|NC 

•  «M>I  ,*M  IK.tHlUOlitinC 
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4(N|N0  It 
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0014  4*^ 

MxthJ 


C 
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c 

c 

c 

c 
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c 

so 
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cm  tuoi  totals,  ini  oo*4ai^ 

00i442v* 

MIIIITI  SHt4„TH  TOTALS  HC»  LCl  VStVCS  OF  4LTIR4ATIVI  00144SJ.* 

STRUCT*  OIJCIIVI  F u'C 1 1 0NS.  MI444vw 

.  .. 

10*411141.11  •  MU  n(U4|tr«ll|}l<4UMM  SI,NS***I  HI.MVISIIOI,  MI.4W. 

NSVN*t|il,NSv*Sll4l,NSv*JI  STl.NlvNtllTlI  Ottt.M 
I  •  1300.)  UOlaASJj 

T0TALSI *1.21  •  MSI  •lCHMfM||Ol,lil*>M||4|lNtll*i||4I.Ht«Mll0ll  ^1**4,. 

NSV*AI|R».NS<r"«ll4I.NSvait  III.  Ntv*4l IT  I 1 

I  •  1300.0  Mt.tUJ 

TO IAL  SI  4  I.  II  •  4SSI  ALCltNlVMRI20I.NlVN»l  41  .N1V  «r  I  U I  .  ISVN41 20 1  • 

NS  VMS  1 1 01 1  NSVNJI  1 41  .NS VNRI  )  Tl  t  NSVMSI  ST|  | 

I  •  1000.0  Ml4>4^ 

MS4SS00 

TN(  COST  04  T  4  L 10444  V  IS  ASSUNfft  TO  M4V(  4U  NTIOIC  COSTS.  J0l4*a«~ 

(AC*  AVAIL 4  SIT  HX<  0»  COST  0M4  IN  THi  LIRA4AV  IS  M40  Millie 

4N0  IF  IT  CU44f4»0N}S  TO  4  -OOtllO  UNIT.  THE  C4T4  IS  US(0  0Ul4»kJJ 

TO  CONFJTC  TNI  COST  TOTALS.  0014>VOA 

*>|4*C0o 

NUN  1 1  •  NCOMJT  «  NSUMT  JUiaal JJ 

4140  III!  10. COST  IN  0Ol4a rfdi 

IT  1(04. ill  2*0,10 
•(40  I ll.EN0*2 ))t  IO.C0SIIN 
00  40  I  ■  1 . 1  UNI T 
IF  I I0.NC.0TNI III  CO  TO  40 
4-2 

IF  I  I.K.NC0N4TI  •;  •  1 
II  •  I 
CO  TO  SO 
CONT INU( 

CO  TO  23 

H4V(  FOUND  THIS  UNIT  IN  TH(  04T4  L  IBAARV  TO  FT  4  NOOTKP 

UNIT. 

J  •  0 

01  SO  I  >  l.NCST 
IF  I IFTST4I 1,11.(0.11  CO  TO  TO 
J  -  J  ♦  I 

TOTALS! I  .<1  «  TOT  4111 1 .4 1  »  COST  INI  Jl  •  F0RS0llH.il 
TO TALSI I • 3 1  •  TJT ALSI I . II  ♦  CUSTINIJI  •  FORSUllll.il 
CO  TO  40 

00  SO  l  •  1.NFTST4 
J  •  J  ♦  1 

TOTALS' l.<l  ■  TOTAL  SI  1 .41  •  COSTINIII  •  AVCST4ILI  •  F04S0LIH.il 
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CONTINUE 
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comnjii  niu  n 
tfcu4«ins  costs. 


03  *3  I  •  I.NCST 
J  •  t 

IN  I  INIStAM.2l.Nt.il  4*2 
4  •  NCU  •  14-11** 
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IN  tCStLA*(|,||.Nt.|Nf Nt|  CO  to  1*0 
0)  ISO  <  •  1.1 

IOtALSI4»l,*l  •  touts!  4*1. Al  •  TOTALS  1 1 , « I 
tout  ONA 

IN  tCSILAAII.II.'.I.IO^A  I  CO  TO  1*0 
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MINT  Nf  N04  T  --  AAA  AN  TOTAIS  kITM  MfADINSS 
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FOSTA  •  TASTA  -  FOSTA 
FCFSTA  •  OSS. 9 

IF  (OENON. ri«. 0.01  FCFSTA  •  FOSTA  /  OENON  •  100.0 
ISO  TFDSTA  ■  TFDSTM  ♦  FOSTA 

AOSTA  •  AVAL  1 1  1  ■  I  2.NSVM91 191 .  N  SVMBI 201  .NSYHB11AI  ,NSVFN(18l» 

•  NSYNBI  4 1 , NSVN8 I  371 1 

•  -ALCL 1 1  1. 1  2.XSVN1I19I  .NSVMM20I  . NSYNBI II I  .NSYFBl  1SI  . 

•  *  NSYNBI  41 .NSYNBI 371  I 

AOSTA  ■  AOSTA  •  ICOO.O 

TAOSTA  •  TAOSTA  ♦  AOSTA 

FCASTA  •  0.0 

OENON  •  TASTA  -  AOSTA 

IF  10EN39.NE.3.3I  FCASTA  .  FOSTA  7  OENON  •  100. 0 

TACST  •  AVAL!  I  1.1  2.NSVUI  31  .NSVH6U9I  .NSVK3I20 1  .NSYFBl  371 . 

•  N$VN>»|  371. 9SV<<S<37I  I 

“*  '  •  -ALCLII  1.1  2.NSVM!  31  .NSYNBI  191?  NS  VMS  (201  .NSYFBl  371 . 

•  NSYNBI  371, NSYNBI  3711 
TTACST  •  TTACS I  ♦  TACST 

IF  (F0E9SN.C0. II  SO  TO  140 

FOCST  •  AVAL  1 1  1. 1  2. NSYNBI  3!  .NSYFBl  191  .NSVWI70!  .NSVFA1  *1. 

•  NSYNBI  4I.NSVMH  371  I 

'  •  “FLCLtl  1.1  2.NSYM3I  31  .NSYFBl  19)  .NS  VMS  1201  .NSYFBl  41,'"' 

•  NSYNBI  4I.NSVHSI37I) 

FCFCST  .0.0  ..... 

OENON  •  TACST  -  FOCST 

IF  1 01 NON. NE. 0.01  FCFCST  ■  FOCST  7  OENON  •  100.0 

CO  TO  170 

~  160  FOCST  >  OVUM  2.1 1.I2.NSV9BI  3 1 .NSVNBI 191  .NSVNt 1 231 . NSYNBI 371 . 

•  NSVNH  371,  NSVNAI  STI I 

•  “ALCL3I  2. 1 1.1  7.NSVNBI  3I.NSVNAI  191  .NSYNBI 20 1  .ASVNBIITI. 
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00 177430 
33. 7  7  >3  J 
001 77eO«l 
00177703 
33177 Aw J 
00177903 
301 74633 
30.7A 133 
00173233 
00174333 
301 7A<*33 
00 174 >03 
0017a»3w 
‘  30.74733 
00174A00 
33174943 
33179 Juj 
30179133 
00179233 
00179434 
00179430 
33 179 >33 
331 7VoJ J 
00179703 
00179A43 
30.79933 
OOlBOoOO 
001B3 133 
30193233 
30110430 
.  30194433 
00193>33 
00193433 
O0l407w3 
3U193A03 
03193933 
0Cl*13w3 
03. Bl 133 
001A12U0 
061*1)33 
30.A144J 
OOlAlSOo 
301*1033 
30.91733 
03 1*1 400 
001*1933 
03192330 
00192100 
_  0019*233 
00.92403 
03192403 
30112533 
30192*03 
00192700 
__3Wt*2*33 
00.9.933 
001*4333 
30114133 


MEMBER  NAME  CONREP 

_ _  •  NSVMB(37|,NSVMB<3?)>  _ 0014323. 

OENOM  ■  FOCST  00143330 

...  TSACST  •  TdACST  ♦  FOCST  .  ...  ..  .  ,.i.  . . .  _  U0lBi*3u 

FOCST  ■  TACST  -  FOCST  301B3>J3 

FCFCST  «  999. 9  ...  0018 JoJj 

IF  (OENi)M.NE.O.OI  FCFCST  ■  FOCST  /  OENOM  *  100.0  OOidJ703 

1T0  TFOCST  *  TFOCST  ♦  FOCST  . _u01B3dJ3 

ROCST  ■  BVALI  1  1, I2,NSYH(  31  .NSYMdl  19»  ,N$YMSI29)  .NSYMBI 1SI  .  OOldjSO. 

•  N STMS (  A) ,NSYM3(371)  U014A03U 

•  -RLGLI  11.12.  MSVMMI  31  .NSYMSI 19)  ,NSVMB»20)  .NSVMBI  IB)  ,  OOldtlJj 

_  •  NSVMBl  A). NSVMB ( 3  7)  1  -  OOidYiJ. 

TROCST  >  TRDCST  ♦  ROCST  OOlBAJOu 

_  PCRCST  ■  0.0  . .  .  _ _ OOIBAAOO 

OENOH  -  TACST  -  ROCST  J01BAP33 

IF  (OENIM.NE.O.OI  PCRCST  ■  ROCST  /  OENOM  •  100.0  OOldAbOO 

WRITE  (3.1291  AGGL A8  (ll.TASTR.FO  STR  , PCFSTR, ROSTR, PCRSTR,  331d*7Jj 

•  TACST i TOC  ST. PCFCST.R9CST»PCRCST  OOlBAbJ. 

120  FORMAT ( 1H  , IX.  A2,  1 X, 10X , F 7. 0, 9X.F7.0 .1 X, 1H ( ,F5.  1 , 1H 1  ,AX ,F7 .0, IX ,  OOldAVOO 

.  •1H(.F5.1.1H).10X.F9.3.5X.F,1,3.1X.1H(  ,F5.l  ,  1H)  ,2X,F9 . 3, 1 X  ,1H(  ,F5 . 1.  OOlbSOO. 

•  IN 1 1  OOldilOj 

110  'CONTINUE  00185200 

C  0olda300 

IF  I F0EVSW.E3. 1 I  GO  TO  180  JOidaAJj 

PCFSTR  »  0.3  0014»»33 

_ OENOM  «  TTASTR  -  TFOSTR  .  ....  _ _ 0UidS6JJ 

IF  (OENOM. NF. 0.31  PCFSTR  -  TFOSTR  /  OENOM  ♦  1.00.0  OOidSTdJ 

...  G3  TO  190  . .  .  OOWSBOu 

180  PCFSTR  ■  999.9  301d593J 

.  IF  (T3f.STR.NE. 0.01  PCFSTR  •  TFOSTR  I  TBASTR  ♦  130.0  _  OOlBoOJ. 

190  PCRSTR  «  0.0  OOldblUU 

OcNOM  ■  TTASTR  -  TRDSTR  _  _  _  03146203 

IF  IOENOM.NE.O. 31  PCRSTR  «  TRDSTR  /  OENOM  •  100.0  U014bjOj 

.  ...  IF  (F0EVSW.E3.il  GO  TO  200  OOldbAOu 

PCFCST  »  0.0  30186500 

OENOM  ■  TTACST  -  TFOCST  .  _  _  _  30186600 

IF  (OENOM. NE. 3. 3)  PCFCST  ■  TFOCST  /  OENCM  •  100.0  0UI8670J 

.  GO  TO  210  .  ...  . . .  OOldobO J 

200  PCFCST  ■  999.4  03ido9JJ 

IF  (TBACST.NE.0.01  PCFCST  -  TFOCST  /  TBACST  ♦  100.0  001B7G0U 

210  PCRCST  ■  0.3  OUlJTiuJ 

OENOM  ■  TTACST  -  TR9CST  JO. 4723. 

IF  (OENOM. NE. 3. 01  PCRCST  *  TROCST  I  OENOM  •  100.0  001b7300 

_  WRITE  (3,1301  TTASTR,  TFOSTR,  PC  FS TR , TPOSTR , PCRSTR,  001B7m3j 

•  TTACS1, TFOCST, PCFCST, TROCST, PCRCST  J01d7?33 

130  FORMAT ( 1M  ,1AX,7(1H*I,9X,7(1H-),12X,7(1H-),18X,9(|H-),5X,9(1H-),  OUld7oOu 

•13X,9( 1 M— I /  00x4773. 

•  1H  ,SHTCTAL,9X,F7.0,9X,F7.0,IX,1H(  ,F3.1,1H)  ,AX,F7.0,)X,  30xd7«00 

•1NI.F5.1, 1H),13X,F9.3, SX,F9.3,1X,1H(,FS.1 ,  H) ,2X,F9.3, IX, 1HI ,FB. 1,U014 790. 

•  1MII  _  031  Jd JOO 

RETURN  00x4*13. 

FNO _  OOldddUl 

SUBHOuriNE  LPR3  IP  JOUdO.O 

C  0VERLAV(tPR03P,lA,3)  OOlJdAJ. 

C  PROGRAM  LPR93P  OOtddiO. 

C  PFDUP  1.0  —  5  may  1470  ’  UOiddbjJ 

C  READS  NON-NHl  COL  AND  ROW  INFO  FRCM  OPTIMA  RECORO  INTO  ST03.db733 

C0MM3N/ANS/AI  3,24031  OOlbdd.j 

COMMON /CUMMO/  KITAIlbl  OOlddVUO 
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MEMBER  NAME  CONREP 

C3MM0VSTAT/NC0LI  3),NR3WI  3),CREAOI3l  _  _  30WFJ0J 

C3MMJN/RNS/RMATI  5,49001  00i8910* 

C3MMO*J/ME03miTLEI  33,3)  ,)PAGE  .  0018920* 

DIMENSION  IRI  5, 40001 , 1  AO W<  21  0018930* 

01  MENS  ION  IM  3,25031 ,  1 3E  NT  1 2 ) ,  IRASE  I  2) ,  ICOLI  2)  ,N1  <2  >  ,IN0t2)  0*18*40* 

EQUIVALENCE  ild,4»  0U1BV500 

EQUIVALENCE  I  I R ,  R  MAT  )  .  00189600 

LOGICAL  CREAD  *  001897** 

DATA  IDENT/4HC9LU* 3HNNS/ , I RHS/3HRMS/ * I BL/1 H  /, IOENT R/4HR0WS/  UC18960* 

C  /  OPTIMA  RECORD  /  IS  ON  Lf APE,  00169900 

LPTAPE  •  10TAI1I  0U1  90000 

. .  MCASE  -  IOTA!  21  0U1901J* 

REWINO  LPTAPE  _  _  _  00190200 

C  “  READ  OPTIMA  RUN  TITLE  FOR  MCASE.  ”  ‘  . U0l9o3oo 

READI LPTAPE , 36)  (ITITLEI  I , MC A SE )  ,  I •  l  ,33 )  00190400 

C  ‘  •••••FORMAT  INSERTED  5  MAV  1970  . .  0019U500 

36  FORMAT I  22*  14A4/15X.7A4, 24X.2A 4,  A2 , 1 6X ,2A4 .A2///52 X , 5A4 , A1 )  00190*00 

•••••FORMAT  PRIOR  TO  5  MAV  1970  00190700 

36  FORMAT! 2X,25A4,/15X,8A4I  0U19U80U 

FIRST  READ  THE  COLS  INFO  ALTHOUGH  IT' FOLLOWS  ROWS  INFO  ON  0019090., 
LPTAPE.  001V10OU 

SET.  1ST  COL  READ  WORO  OFF  >  0.  00191100 

SET  NO.  COLS.  STOREO  COUNTER  FOR  CASE.  00*9i<0* 

LLOG  »  0  OulVliOO 

IFIHCASE.E0.il  MCOL  -0  _  0019140* 

IF  I  MCASE. GT  .1 J  ICUL  •  NCOLIMCASE  -  11  . .  00*913** 

C  SEARCH  FOR  3EGINNING  OF  COLS  SECTION  OF  OPTIMA  RECORD.  00l91o9* 

50  RE AOI LPT APE, 1001  ICOLI 1 1  , ICOLI  21  001917*0 

100  FORMAT!  2X.2A4 1  0019160* 

IFC  ICOLCU.NE.  10ENTI1I  I  CO  TO  50  00191900 

IF I  I COL I2I.NE.IDENTI2II  CO  TO  50  _  _  0ul920** 

C  ’  WHEN  COLS  LINE  FOUND  SKIP  NEXT  3  LINES.' . '  . 00l9210o 

REAOILPTAPE, 1001  ICOLI  1 1 , 1C0L I  21  0019220* 

REAOILPT APE,  1001  ICOLI  1)  ,1C0L(  21  .  '  J01923J0 

REAOILPTAPE, 1001  ICOLI 1 ) . ICOL I  21  00192400 

C  READ  UP  TO  47  COLUMN  VARIABLES  ON  /  PAGE  /.'  '  '  001925*0 

DO  180  l«l, 47  00192600 

C  TEST  FOR  1ST  C3L  REAO.  . . . 0019270* 

IF  I LLOG.NE .0)  GO  TO  161  0019230* 

C  160  REAOILPTAPE, 1591  0*19290* 

160  REA 01  LPT APE, 159, END* 22 01  001930** 

•  IC01F.N11 1I,N121,N122,N123,N124,IN0I1I , I NDI 21 , VALUE  0019310* 

199  FORM4T(2X,I6,10X,A4,2A1,1X,2A1,12X,2A4,1X,FU.O)  0019320* 

C  1ST  CUL  HAS  KEEN  REAO,  SO  LLCG  0).  ■  1.  0019**0* 

LLOG  ■  1  0019340* 

C  K3  OF  LAST  ROW  I  S  KJ  OF  1ST  CUL  MINUS  1.  001939** 

LASTR  >  ICOLF  -  1  00A93G0* 

CO  TO  162  001937** 

C  161  REAOILPTAPE,  140)  001938** 

161  REAOILPTAPE, 140, ENO-229)  00*9390* 

•  NU1),M121,N1?2,N173,N124,IN0I1) ,  I  NDI  2) ,  VALUE  001V.&J* 

*  149  FORMAT! 18X.A4.2AI, 1X,2A1 , 12X ,2A4 , l X ,F1 0.0  )  00  1  941C* 

C  •••••  NOTE  COC  EOF  TEST.  001v*2** 

C  162  IFI EOF, LPTAPC)  223,190  0019*3** 

C  MERE  IF  PREMATURE  END  OP  LPTAPE  ENCOUNTERED.  _  0019*4** 

119  PRINT  39, MCASE  *  *  0019O00 

39  FORMAT  I  27h  BAD  OPTIMA  RECORD  FOR  CASE,  1 3, 13M— JOB  KILLFO.)  00l9«o** 

STOP  0019*7** 
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MEMBER  NAME  LONRE'P 

162.  CONTINUE  _ 

C  IE  RHS  10  F0UN3,  LAST  COL  HAS  BEEN  READ. 

>50  iEiiNom.Eo.HMSi  co  to  200  _ _ _ 

C  00  NUT  STORE  ANT  ZERO- VALUE 0  BETAS. 

IEIVALUE.E3.0.0I  CO  TO  l 30  . 

Nil  21  «  NAME4IN121.N122.N123.N124) 

C  ADVANCE  NON- ZERO  BETA  COUNTER.  . 

HCOL  -  MCOL  ♦  1 

C  CHECK  FOR  dETt. STORAGE  OVERFLOW.  . 

IFIMCOL.GT. 25001  GO  TO  230 

C  STORE  COLUMN  NAME.  . . . . 

IBIitMCOLI  -  Nllll 

_  IBI2.MCOL)  «  N1I2I  _ _ 

C  STORE  BETA  VALUE. 

AI3.HCOLI  -  VALUE  . 

ISO  CONTINUE 
GO  TO  50 

C  SAVE  LOCATION  OF  LAST  WORDS  USED  FOR  THIS  CASE  COLS. 

200  NCOLI HCASE I  •  HCOL  ,  ..._ . . _  _ 

PRINT  32.  ::ase.  «CJL  INCASE  I 

32* FORMAT! 5X.4H:ASE.  13.  IBM.  NON-ZERO  BETAS  -.IS.12H  CUMULATIVE.) 

C  NOR  EXTRACT  ROMS  INFO. 

REWIND  LPTAPE  ...  . 

C  SET  ROWS  STORCO  COUNTER  FOR  THIS  CASE. 

_  _  IFIMCASE.EO.il  MROW  -0  _ _ 

IFIMCASE.NE.il  MR UR  «  SROWl MCASE-1) 

C  SEARCH  FOR  ROWS  SECTION.  ... 

C  55  READ! LPTAPE 1 10  31  1CGL 111 , ICOL I  21 

55  REA0I.PTAPE.103.EV1-223)  ICOL  I  II  .IC0LI2I  .  _ _ _ 

NOTE  COC  EOF  TEST. 

IFIEOF.LPTAPEI  220, BOO 

CHECK  FOR  INTO  COLS  SECTION,  SHOULD  NEVER  HAPPEN,  BUT- 
800  IFII  ICOL  I  II  «E  3. IDEM  Till  I  .AND.  (  ICOLI  2  >•  EQ.  I NENTI2  )  )  I  GO  TO  B99 
IF  LIN  OT  ROWS.  READ  ANOTHER  LINE. 

IF  I  ICOLI  ll.NE.IOENTRI  GO  TO  55  . . . .  . 

IF  LINE  IS  ROWS,  SKIP  3  LINES. 

REAOILPTAPE.IOOI  IROWI  1 1  ,  I R  JW I  21  _ _ _ _ 

READ! LPTAPE. 1 331  IR'VWIl) .IROWI 21 
REAOILPTAP'.lOOl  IROWI  1 1 .IR0WI2I 

READ  UP  TO  47  ROW  VARIABLES  PER  PAGE. 

00  880  1-1,47 

READ! LPTAPE, 14  51  KJRUW, Nl 11) , N12 1.N122 .N123.N124.RLGI.  PI, VALUE 
RE ADI LPTAPE , 14  5,  E NO- 220 1 

•  KJROW. Nllll  ,  N121, Nl 22, N123.N124.RIGL.PI. VALUE 

145  FORMAT!  2X.  16,  10X.A4.2A  I  ,  l  X  ,  2A 1 ,2  IX  ,F  10 . 0.10X  ,F  10. 0 ,  BX.B  10.01 
EOF  SHQULO  NEVER  HAPPEN— IF  DOES,  GO  KILL  JOB. 

666*6  NOTE  COC  EOF  TEST . 

IFIEOF.LPTAPEI  220.850 

IF  ALL  THREE  ROW  VALUES  •  0.0,  STORE  NOTHING.  _ 

•SO  IFIP1.E0.3.0.AN0.  VAL'JI  .E3.0.0.  AND. HLGL.Fl). 0.31  GO  TO  690 
N1I2I  -  NAME4IN121.N122.N123.N124) 

C  ADVANCE  ROWS  SIOREO  COUNTER. 

MROW  ■  MROW  ♦  1 

C  CHECK  FOR  ROW  STORAGE  OVERFLOW. 

IFIMROW.GT. 43031  GJ  TO  233 
C  STORE  ROW  NAME. 

|R  (  1,  MROW  I  -  Nllll 
IRI2.MRUWI  •  N1I2I 
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_  00 194 BOO 
00194933 
JU195UJJ 
0019S100 
0019520- 
0J195300 
...  301934JU 
0019550- 
OOlOauJw 
00195700 
00195000 
J01V»93J 
_  0019*000 
0019610- 
0-l9o2JJ 
OJ 19630- 
-01964JJ 
00196500 
001966 JO 
0019-70- 
J3i$-B — 
00196903 
00197000 
30197100 

_ 03197233 

0019730U 
0-197400 
00*975-3 
0019/633 
00197  7-- 
33*9763- 
0019790- 
3-19d0-j 
03196103 
00196200 
00196300 
00196403 
0319o30j 
0019663- 
30196700 
00196609 
001969 JJ 
30199300 
0014913- 
001992-- 
30*9930- 
0014940- 
0019953- 
03149633 
33*4970- 
00199833 
331449— 
00230303 
002001b- 
3023320 0 
OOwJwlJJ 
0020040- 
0323050 3 
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MEMBER  NAME  CONREP 

C  STORE  P!  VALUE.  _  _  0G2JJ6JJ 

RMAT(  3«NR0J)  •  PI  0C2307J 3 

C  STORE  RHS- VALUE •  00200600 

RMAT (  4,  .MROJ I  >  VALUE  002oU90j 

C  STORE  LOGICAL  VALUE.  OO2OUJJ 

RMAT  I  5 1  MRU  W  )  <  KLGL  002UUUJ 

C  CHECK  FOR  PRE-OS TERMINEO  LAST  ROW.  __  _  OC2.,1200 

890  IFIKJROJ.E'J.LASTRI  CO  TO  899  iJJJ 

880  CONTINUE  0020l4wj 

GJ  TO  55  JC  J153- 

C  SAVE  LOCATION  OF  LAST  oOROS  USED  FOR  CASE  ROW  STORAGE.  JOtJtoJj 

•99  NRO<<<MCASE I  ■  MOW  00201703 

PRINT  34*MCASE,NR02|MCASEI  _  002olB3J 

39  F3RMATI5X,4HCASE,  13,25-1.  N0N-2ER0  PI.  B.‘  OR  LGL-,187  .  0U2JA 9UJ 

•  12H  CUMULATIVE.!  002O2UUU 

C  TURN  ON  CASE  READ  WORO.  .  00 23210j 

CREADI MCASE  I  «  .TRUE.  00*32203 

RETURN  .  00202  JO J 

210  PRINT  31, MCASE  30202433 

31  FORMAT  I  43H  ot  TA  STORAGE  OVERFLOW— J03  KILLED.  CASF  » 13, 1H.  I  .  J0*j250j 

STOP  032G2uJG 

'  235  PRINT  33, MCASE  Oo2J27uJ 

33  FORMAT!  40rt  R32S  STORAGE  OVERFLOW— JOS  KILLED.  CASE,I3,1H.)  J0*J28jJ 

STOP  0o2J290^ 

END  0020 30 JJ 

- SuSkTDmnyfFff - 53233137 

OVERLAY! LPROMP , 15, 01  002JJ23J 

PROGRAM  LPROMP  0320 J3G0 

PFOREP  1.4  —  9  MARCH  1970  J02J34UJ 

READS  ROW  ANO  Ct»L  INFO  FROM  AN  MPS360  RELATED  SOLUTION  Ju2jJ5UJ 
FILS  INTO  PFOREP  STORAGE.  0023JuOu 

COMMUN/ANS/AI 3,25001  * .  '  002ui7uO 

COMMON /COM MO/  KITAI16I  00203BG0 

COMMON/ ST  AT /NCilLI  3),NRU2I3),CREA0(3I  0020J900 

CUMMON/RNS/RMA  T I  5, 40C0I  0321,40 JJ 

COMMON /HEDO/ IT ITLEI 33,  3  I , (PACE  . .  *  '  ~  J02u410J 

DIMENSION  IRIS, 0001,131  3, 25001, I0ENTCI2I  ,Nl  121 .VALSI3I ,NI  3!  OG2O420., 

EOUIVALENCE  (VALSIII.RACTI.IVALSUI. SLACK!, IVALSIlltPIVS)  UW*%/43UU 

EOUI  VALENCE  (  IB  ,A  I ,  (  I R.RMATI  00 20 44 J., 

LOGICAL  CREAO  0020450%, 

DATA  I0ENTR/4MPJ3S/,  IOENTC/4HCOLU.4HMNS  /  302046JJ 

DATA  NEG/IH-/, I31NK/1H  /  33234733 

LPTAPE  •  IOTA!  II  002o4d0^ 

MCASE  ■  10141  2)  G«2^49JJ 

C  READ  MPS34D  RUN  TITLE  FROM  INPUT  CARDS.  00 iOsOaJ 

RE  ROC  1,1)  I  III  TLE(  I.MCASEI,  1-1  ,33)  002UslJJ 

1  FORM  AT  I IX, 1744)  00*%,5iJj 

C  MPS 340  SOLUTION  IS  ON  LPTAPE.  J0*u53uJ 

REWIND  LPTAPE  00205400 

C  '  SET  ROWS  STORED  COUNTER  FOR  THIS  CASE.  * .  032055-j 

MR02  •  0  0v2J>* JJ 

IFIMCASE.NE.il  MKOW  ■  NRflKl MC*  SE-1 1  G0205733 

C  RT AO  TO  R(l4$  SECTION.  002Oi»3J 

C  100  RFA0IIPTAPE.2I  Nil  II  0w23»9jJ 

100  R£AOILPTAPE,2,EV)«900I  Nllll  _  _  _  JG2wG«wJ 

2  FORMAT! |X, A4)  Ov2UfelJJ 

C  SHOULD  NOT  FNCflUNTFR  EOF.  Ow 20b2J* 

C  IFIEOF.LPTAPEI  900,101  Oj2Jo1 Oj 
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MEMBER  NAME  CUNREP 

C_  _  SHOULD  ENCOUNTER  ROWS*  .  _ 

101  IFIN1I ll.NE.IOENTRJ  00  TO  100 

C  .  HERE  WHEN  AND  |F  ROWS  SECTION  FOUND.  _ 

C  SO  NOW  READ  ROW  INFO. 

200  REAOILPTAPt. J)  NHII.NIIZI.RACT,  SLACK,  PIVS  .  .  ... 

3  FORMAT! lX,A9,A4,9X,r 13. 5 , 2X ,  FI  3.  S.  1 X  ,F  1 3.  5 1 

C _  CHECK  FOR  INTO  COLS  SECTION  VET.  _ 

IFINKlt.EO.lOENTCIlll  GO  TO  300 
C  COMPUTE  RHS  VAfJE. 

RHS  •  RACT  ♦  SLACK 

C  .  IF  ALL  ROW  VALUES  -  0,0.  STORE  NOiHfNG'FOR  RCU. 

IFIRHS. EO. 0. O.AND. SLACK. £0. 9. O.ANO. PIVS. EO. 0.01  CO  TC  200 

C _ _  .  .  OTHERWISE  AOVANCE  ROW  COUNTER.. _ 

NROW  ■  MROW  ♦  1 

C  CHECK  FOR  ROW  STORAGE  OVERFLOW. 

IF  I MROW.GT .4000)  CO  TO  910 
C  STORE  ROW  NAME. 

IR I  1 • MROW I  -  Mill) 

....  IRI2.NR0WI  •  N1I2)  _ _ _ 

C  STORE  PI  VALUE. 

.  RMATI 3. MROW )  «  PIVS 
C  STORE  RHS  VALJE. 

RMATI A»  MROW I  -  RHS 
C  STORE  LOGICAL  VALUE. 

_  RMATI5.MR0WI  •  SLACK  _ _  _ _ 

C  READ  NEXT  RECORD. 

CO  TO  200  .... 

C  .  HERE  WHEN  COLUMNS  SECTION  ENCOUNTERED. 


I  SAVE  INDEX  OF  LAST  WORDS  USED  FOR  ROW  STORAGE. 

300  NROWIMCASEI  •  MROW 

: _  SET  COLUMNS  STORED  COUNTER  FOR  THIS  CASE. _ 

MCOL  •  0 

iFIMCASE.NE.il  MCOL  ■  NCOLIMCASE-1! 

I  NOW  READ  C’iLS  INFO. 

J  310  REAP! L  PTAPE • 4)  N1 1  II ,N1 1  21 . VAL SI  1 » ,  Nl  1 1 
310  REAOILPTAPE.A, END-BOOI  Nl  1 1 1  .Nil  2 1 , VALSI 1 1 

...  $  FORMAT!  IX.AA.AA.Fn.S)  _  _ 

:  I  FI  EOF, LPT  APE  1  WO  3,320 

i  00  NOT  STORE  0.0  VALUE  BETA. 

320  IFIVALSI1I.E3.3.0I  GO  TO  313 
:  CHECK  FOR  NEGATIVE  VALUE. 

IF  I  Ml 1I.EQ.NE3I  VALSI1I  ■  (-1.01  •  VALSIll 

AOVANCE  COLUMNS  STORED  COUNTER.  _ 

MCOL  -  MCOL  ♦  1 

CHECK  FOR  BETA  STORAGE  OVERFLOW. 

IFIMCOL.GT .25031  CD  T3  920 
STORE  COLUMN  NAME. 

IB  I  1 • MCOL I  •  Mill) 

_ 1BI  2.MC0L  t  •  Nil  21  _  ...  ._ 

STORE  SETA  VALUE. 

Ali.MCOLI  •  VALSIll 

READ  NEXT  RECORD. 

CO  TO  310 

HERE  IF  BOTH  ROWS  AND  COLS  BOTH  RE  AO. 

SAVE  IN3EX  OF  LAST  COL  STORAGE  WDROS  USEO. 

•00  NCOL INCASE  I  ■  MCOL 

PRINT  STORAGE  STATISTICS. 

PRINT  32.MCASE,n:jLIMCASCI.MCASE  .NROWIMCASEI 


c  _. 


_ 0320*900 

0020*500 
3U20o*00 
0020*7 33 
.  .  OOWuOtfGw 
002069Jj 

_ _ <3323  /03w 

002C7 TOO 
0(223  7203 
33207303 
00207*00 
00207  5  Jj 
..  ...... 0o207o0j 

00237703 
00207600 
00201 9 jJ 
00200000 
00206 luJ 

_  00*06X03 

00206603 
0026*903 
00236533 
00206600 
00206 70j 

_ _ 0020a  dJ  j 

00206900 
.  .  00239003 

00209130 
002>j920o 
00209300 
00239903 
OOWOV50W 
0020V60O 
002 09  700 
00209800 
03209903 
..  032x0030 
03213103 
00210230 
302*3603 
00210903 
00210 30J 
03210*03 
03213700 
03210803 
00210903 
00211003 
03212 100 
30211200 
03211JJ3 
00211903 
002*1600 
002*1 oOO 
03212700 
00*11603 
0021*903 
002l200o 
00212100 


noon 


member  name  conker 

32  FORMAT! 5X, 4. CASS, 13,  1BH.  NON-/ERO  BETAS  -,I8,12H  CUMULATIVE./ 

•  5X.4HCASE. 13.25H.  N3N-/ER0  PI.  B.  OR  LGl-.Ift, 

•  12H  CUMULATIVE.  I 

C  TURN  ON  CASE  READ  WOAn. 

CREAO(MCASE)  •  .TRUE. 

RETURN 

C  HERE  IE  PREMATURE  ENO  OF  FILE  ON  LPTAPE. 

900  PRINT  30.MCASE  . 

30  FORM ATI 29H  BAO  MPS360  SOLUTION  FOR  C ASE , I 3.13H— JOB  KILLEO.I 
STOP 

910  PRINT  33.MCASE 

33  FORMAT  I 40H  ROWS  STORAGE  OVERFLOW— JOB  KILLED.  CASE, 13. IH.I 
STOP 

"920  PRINT  31.MCASE 

31  FORMAT  1 40H  BETA  STORAGE  OVERFLOW— JOB  KILLED.  CASE,  13. IH.I 
STOP 
ENO 

•SUJkOUI  rSE . - 

OVERLAVI SUPORT ,7, 31  _  _ 

PROGRAM  SUPORT 


COMMON  /OESCRP/STRNTHl  7601  .OTMI760I  .COSTI760I 
COMMON  /EFE/NEFF.EFfLiBI  4,3) ,EFF 160,6) 

COMMON  /FORSOL  /FORSOLI  760,21  ,  IFRSOL  I  760,2  ) 
COMMON  /LINE/L  INE.ISMPAG 

COMMON  /REQFAC /CUEFIROOOI.KJCOEF  (8000)  , NAN7,NBN2 

common  /resolu/nco-mt.nsuprt.npram.npramu 

COMMON/SYM  )0L/NSV19( 371 

COMMON  /TITLE/ ITI TLEIBI  .  I  SRC  I  31,  I TPSNI 21 
COMMON  /ILOCIO/ILOCIO 
COMMON  /CHECKX/IIESTI25I 
C 

INTEGER  DTM.OTMI 
C 

DATA  IBLANK/  AH  / 

C 

00  AO  1-1,8  . .  -  ' 

AO  5MTLEII)  -  IBLANK 

D3  60  1-1.3 

60  ISRCIIl  -  IBLANK 

00  70  1-1.2 

T1  ITPSNIII  ■  IBLANK 

REWIND  10 
ILOCIO  -  0 
IP01N.T  -  0 

NUN  IT  •  NCOMOT  ♦  NS'JPST 
NCOEF  «  NAN l  A  NSN/ 

ISBPAG  •  0 

. CALL  SHEAD  . . 

C 

03  10  I  •  l.NUNIT 
SJB1  >  0.0 
SJB2  -  0.0 

IF  ILINER1.GT.60I  CALL  SHE AO 

WRITF  13,501  . 

SO  FOPMATI 1H  I 

LINE  -  LINE  »  1 


00212200 
002 12300 
002*2406 
002i2s0u 
00212600 
JOiiilTOJ 
00212000 
00212900 
0021 3c  Jo 
00213100 
00213260 
J0213366 
0021 34wJ 
00213500 
06213606 
00213/00 
00215560 
TUTTTTTj" 
00*1*000 
002 1A lOu 
00214200 
00214^00 
0021*4 66 
0U2145JJ 
OOtlAoJu 
002147U6 
002140 JU 
00214V00 

0021 60wJ 

0021310J 
0021520J 
0u2153w0 
0021>400 
00215306 
0021 5o Jv 
002I370J 
OO2150JJ 
00213906 
00216000 
30216106 
002162 JJ 
002loJJU 
00216400 
JOiloSJj 
0021»o0J 
0021o 106 
00216006 
0021oJ00 
00217006 
J02.71J6 
0021/206 
002 17300 
0021 740J 
0321/306 
00217606 
00217/66 
0021/006 
OU21/900 


l 


"EMBER  NAME  C UNREP 
..  ...  0TM1  ■  DTMIII 

CALL  BRK300IDTNI,  II*  I2»I3) 
_ _  IX  -  NSVMBI19) 


IF  I  I.LE.NCONBTI 
Pll  -  PIVALIIX 

SHORT  «- BETA!  IX 

ALONG  ■  BETAI  IX 


IX  «  NSYMBI 31 

,11, l 2, l 3, NSVMBI 37 1, NSVMBI 37), 
NSVK81  371 »  NSVMBI  37) ) 
,11,12,1  3, NSVMBI  181  t  NS  VMS  (19 1  , 
NSVMBI 37 1 t  NS VMS  13711 
,11, 1 2, 13, NSVMBI 18)  t NSVMBI 12 1 1 
NSVMBI  371  iNSVMB(37M 


.00216030 

03214133 

0021420* 

0021430* 

032144*9 

03214*3* 

00214O0* 

0321o7J* 

00214409 

03214VJ* 


REODEV  •  SHORT  ♦  RLONG 
TJSOLX  •  F3RS0LI I  • 1 )  -  REODEV 

IF  I TJSOLX. GT. 0.01  PCAEQ  ■  FORSOLII  .1)  /  TUSOLX  .  _  _ _ _ 

IF  I T JSOLX.GT •  0.9 )  PCOEV  *  REODEV  /  TUSOLX  •  103.0 

PIX  -  Pll 

IP  I I.GT.NCOMBT.ANO.PCREQ.GT.O.O)  PIX  -  Pll  /  PCREC 
IF  I  ITFSrm.EO.il  SO  TO  80 
CALL  TGSPTI  I  I 

.  IF  ILINEU.GT.601  CALL  SHE  AO  .  . . . 

83  IS  TR  >  STrtNTHI 1 1 

'  WRITE  (3.931  DT'1Ii(ITITLEIJ),J»1.3)t  FOR  SOL  1 1 1 1 1  ,  RFOOEV,  PCOEV. 

•  ISTR  .COSTMI.PIX 

90  FORMAT!  1H  , 1 3, IX , 7A4, 42, IX, F 7. 3, lX.Ffl. 3 . 1 X ,F6. 1 ,1X ,  1 5  ,1X,F7.3, 

♦  1X.P7.3I 

_ LINE  -  LINE  «■  1  ...  . _ _ _ 

INO  «  0 


39*19 *9 * 
00219 1U0 
..  032i9299 
0J*i9*Jj 
032194*9 
9321  VS JO 
00219oJJ 
9021973* 
.30219400 
9021981* 
00219433 
0322900* 
0*22*1** 
002202*3 
„  00220*00 
0022040* 


C 

20 


.  03220)3* 

IF  I  IP0INT»1.GT.NC0EF|  RETURN  00220*03 

CALL  KJUNPSI IP0IMT»1,K,LI  0*22*73* 

IF  (K.NE.DTMII  GO  TO  110  90220400 

I  POINT  ■  IPOINT  ♦  1  .  .  .  _ _ _ _ 1)0220900 

INO  -  INO  ♦  1  3022133* 

CALL  KJUNPSI  IPOINT, K,L)  .  .  _ _  _  002nl0* 

JX  -  KJGETSf  L  I  00221200 

CALL  BRK30SIL  ,11.12,131  0022130* 

PII  «  P I VAL ( NS  VM3 (19),ll,l2tI3,NSVMB(37)«NSYMR(37),  00221400 

•  NSVMB 1 371 , NSVN8 1 371) _ _  .  _0322l)*3 

SHORT  —BETA(NSV.'!B(19), 11,12, 13,NSVNRUB)  ,\SVMBI19I,  90221603 

•  NSVMBI  37)  ,NSVM4C37M  002217*3 

RLONG  ■  BETAINSYHBI 19), 1 1, I  2, I  3, NSVMBI 16) »  NSVM8 1 12)  ,  002216*0 

•  NSVMBI 37) ,  NS  V MB  137) )  302219** 

REODEV  •  SHORT  ♦  RLONG  0022209* 

TUSOLX  •  F0KS3LI J X. 1 )  -  REODEV  93222109 

IF  I TUSOLX. GT. 0.0)  PCRE3  ■  rnRSOLCJX.il  >  TUSOLX  '  "  0322229* 

IF  M  ISQLX.GT.3.0)  PCOEV  «  REODEV  /  TUSOLX  •  103.0  33222*3* 

PIX  -  PII  09222403 

IF  IPCREO.ST .0.0)  PIX  ■  PII  /  PCREO  39222*9* 

PCREO  ■  ABSI  PCRS'l  I  03222*00 

SJBT  •  COEF I  IPOINT  I  •  FORSOLII  .11  _  _  _ _  0322273* 

SUBTU  •  SUIT  902224*0 

IF  (RE3OEV.NE.0.0I  SUBTU  ■  PCREO  •  SU5T  00222900 

SUBS  ■  SU9T  *  STRNTHIJXI  00221000 

sum  ■  sum  ♦  subs  00223133 

S'JBSU  •  SIMS  9922*290 

IF  IRE0QEV.NE.3.3I  SUB SU  •  PCREO  •  SUBS.  __  9022339* 

SUB2  ■  SUB2  ♦  SUB  SU  0322349* 

CPI  •  -0.1  •  SUOT  •  Pll  0022***0 

IF  IITCSTIll.E9.il  GO  TO  ICO  09223603 


3*»5 


I 


MEMBER  NAME  CONREP 

CAU  TGSPTI  JX  I  _  ...  _ _ 

100  tP  I  LINE *1.01.  *01  CALL  SHE  AO 

LINE  ■  LINE  ♦  l 
ISTH  •  STMNTHIJXI 

MUTE  IS. SOI  L,(ITIHM5l,J.l,a),FnRS0L(JX,ll,RE9OFV,PC0EV, 

•  ISM  .COSTIJXI  .PIX.COFFIIPOINTI.SUBT.SUBTU, 

•  SUBS, SUBSU. CPI 

SO  F3RMATUH  ,  l3,lX,7i*,A2,lX,F7.3,tX,F8.3,lX,F*.l,lX,t5  .IX. 

•  PT.J,lX,r7.  J,  JX,M.*,1X,F7.  J,IX,FT.3,1X,F7.0.1X,F7.0,1X, 

•  F7.3I 
CO  TO  20 

C 

110  IP  (INO.EQ.SI  CO  TO  13  _  _ 

IP  ILINE»2.GT.60)  CALL  SHE  AO  *'  '  . 

LINE  •  LINE  ♦  2 
WAITE  IS.  133 1  S'J* I •  SUB 2 

ISO  FORMAT I  III  ,  108X.2IBH -  I/IH  ,  10AX  ,P7 .0, 1 X,  P7.0 1 

C 

10  CONTINUE 


00X2 i roj 
03223235 
33X2 j904 
002X5513 
0022*323 

0322*254 
2022*  Sow 
33X2**34 
3322*544 
3322**33 
30XX-.7J4 
30 22**33 
3w22*V34 
332X5334 
0w22»l33 
30225234 
30225334 
0022**53 
00225533 
33225*34 
00225/34 
00X25*23 


RETURN  00225/34 

ENO  00X25*23 


^OaRJUTINE  5Hc«  44X27*44 

COMMON  /LINE/L  INE.ISOPAG  _  042X4033 

isbpag  -  isapiG  *i  -  -  .  -  - 

CALL  HEADS  3022*234 

WRITE  IS. 101  ISBPAG  0322*534 

FORMAT  I  111  //IH  ,5jX.  lRH'JNIT  SUPPORT  REPORT  »39X, THSUBPAGE .  I4//X  3022**34 

•  IH  .  30X,  l*HSUPP3R TED  UNIT/IH  .29X.16  (1H-)  /1H  ,  29X,  lBhS'JPPOAT  ING  UN3D22**4J 

•  1TS.51X,  22HDIAECT  JNIT  ALLOC  AT  ION/IH  ,92X  ,  31 1  IH- 1  /  IH  .ROUM-I,  332x0*44 

•  17T, 5IWN  ITS.10X,8HSTRENGTH.*X,7H10  P.C./1H  , *3X . I5HRECMT  OEV I AT IONU02Xa7UJ 

•  .15X.7HLP  MAR- , SX , 7HC0EF  OF . 2X, 1 51  IH-) ,1X .151 1H-I . 2X,*MC0EF/  3322**44 

*1H  .36X,*HS0LM.SX,1SI1H-I,1X,*HUNIT.*X,*HUNM  ,SX,5HGINAL.*X.7HtLLU3J2«uS34 
•CA-,2X,2(1*HN3  RE 3  UNIFORM  I  .  U,*MMAl*GNL/lH  . 3HDTM.  ISX.SHtITLE.  0022/333 
•15X. 5HVALUE. SX, 5HVALUE . SX.  302x7133 

•  *HPERCNT,1X.*HSTRN.*X,*HC0ST.3X,5HVALUE,*X,*HTI0N,  3322/254 
•*X ,21 5HDEVTN, 2X«  7HRE0  OEV, 2X1 .5HVALUE/1H  .SI IM-I , IX . SOI IH-I ,  IX,  34X2/233 
•71  1H-I.IX,  JIlH-l.  lX,6UH-l,lX,SUH-l,lX,7<lH-l.lX,7(lH-l,SX,tl  IH-  loJ22  7 -.54 


•  .StiX.TH— 
LINE  ■  21 
RETURN 
ENO 


MitffffiinauH 


KJ  -  RECORD  T3  BE  READ  ON  UNIT  10 
ILOCIO  >  RECORD  LAST  READ  ON  UNIT  10 
COMMON  /TITLE  /  ITI TLEISI • ISRC I  SI. ITPSNI 2 1 
COMMON  / IL0C1D/IL0C10 
IF  IKJ.NE.lLOCiDI  GO  TO  10 
BACKSPACE  10 
GS  TO  20 

IF  IK3.GT. IL3C10I  CO  TO  SO 

REMINO  10 

IENO  •  K3  -  1 

IF  1IEN9.LE.0I  GO  TO  20 

OS  *0  I  •  1,1 ENO 

RIAO  110,501 

F3RMAII 10X1 


00x27*34 
0022/ *03 
00227704 
032x7544 


4XX 

30222553 
30xx*lw5 
002X2X53 
0022*3 44 
04222*55 
0C22*>34 
03222*54 
3 02x2/34 
00222*34 
0022*753 
03229335 
00229134 
04229243 
00229354 


I 

! 


•0 


o 

lO 


m«(i  nut  emu* 

69  TO  20  _ _ 

i**»o  •  o  -  110:10  -  t 

If  I  IIN9.1I  *01  60  TO  10  .  . . . . 

09  *9  I  •  1.1CN0 
•1*9  119.991 

reao  no.Toi  jot*.Mririfiii.i>i.«i'iis*c<iiti>i*»». 

•  <  I  TP  INI  II, 1*1, 21 

TO  FMttTI  14, )t. 4', 7*4,42,2(4, A), 41, *4, 4)1 
H9CI0  ■  RJ 
REIURN 

- f&STO  «ju!.J>JIj:.IJI.I9!I - 

.  .  C3NNJV  /RE 9P *•  SC9EP I  9060 1 , K  JCOf P 1 1)001  tNANT, NtNl ...  .  . 

101  •  KJCO:*ILOC>  /  ICC9 
101  •  KJCOEMIJCI  -  101  •  1C00 
RETURN 
_ END 

fjsct iom  «jctlUI6» 


NUMU 
9621*969 
0 012*609 

XlllMi 
0012**09 
90290969 
M19wl69 
00119199 
091*6999 
061  964U9 

ZJTSZJ53 
MIm*M 
00196 ToO 
06190000 
09199609 
X3L 


291/Li 

0919(1 


c 

c 

c 

c 

c 

* 

c 

c 

c 

c 

c 

c 

c 


10  nee  to 

11  OCT  70 

KJCCTS  IS  *  r<T<IN  IV  PUNCTION  SURPROGRAN  THAT  ACCEPTS  *t  • 
CALLING  PAUNTfP  AN  MTCRMl  I  CENT  IP  ICAT ICN  SUMMER  OP  A  UNII 
COIN  NUM9E4I  AN  9  OEIERMINFS  fMf  CONOfN  INTfRNAl  I CINT  |P  ICATIUN 
NUN3ER-- 1,2 . . 

(ITERNAL  UNIT  n  NUMRIRS  API  SfORTO  IN  CON-ON  ARRA*  0TNUOOI  < 
TOR  NCCNRT  CONRAT  NlOiLPS, IMTN  P9R  NSUPRf  SUPPORT  UNITS. 

AN  ERROR  MESSAGE  IS  PRINTEO  AND  COMM  EMCUTION  IS 

TERNINAIEO  IT  STOP  0004  IP  PARAMETER  10  IS  NOT  POUNO  IN 
ARRAY  OTN  _  _ _ _ 

IO...E TTERNT L  UNIT  IOINTTP ICAT ION  MJMER  .  _ 


COMMON  1PESCRP/STRNTNI TrOI.OTRITAOI  .C0STIT60I 
C0NN9N  /RESCLJ/NCO'TRT.NSUPRT.NPRAN,  NPRAMU _ 

INTEGER  OTM 


C 

10 

c 

c 

to 


NUN  IT  •  NCUMIIT  «  NSUPAT 
09  10  I  •  l.NUNIT 

IP  IOTNI II.NE.IO)  CO  TO  10 
K9CCTS  >  I 
RE  TORN 

CONTINUE 


PRINT  10,10 

P9RNATI  INIP////H  PORTION  R9CET  MAS  C9LLI0  Ml TH  ID  •  , 

•S.16H  MM|;h  is  N9T  IN  ARRAY  0T«) 

StOP  0004  ..  _  ...... 


(NO 


9919(169 
09191199 
6619006 
•9191469 
9019(999 
00191600 
69191799 
99.91699 
69191969 
-69191699 
991(1199 
99191199 
90191999 
.091(1609 
00191999 
90191699 
66191199 
•6191069 
••191999 
091>9969 
00199109 
•0/99166 
06199969 
091(9699 
00199900 
60i996«* 
•9199199 
001(9199 
66299*99 
•61(4099 
00194106 
09194199 
091(« 969 
CO 2 14469 
69194999 
1991(4699 
09194799 
001(4099 
09294  (69 
00199096 
66199109 


3*7 


<JS3D 


/ 


Nf«f*  0M(  C(MI|» 


tUHOUtIM  C1»»  _  _  _ N1IW») 

HOMM  CO/M  _  M/4MOO 

M/liMi 

»*  MV  ?|  00/44*44 

IW/JOtf/ 

fNIS  tOUfIMf  0*1*14  I  MHO  fCHII  COVl*  V*ICT---|  VUI  Ml 


00/4*000 


oiniNjni  :« », 

1/1.114, 

1/1.  Ml,  III 

.Ml, I/I  ••(1.1/1. NO, t/l  Mil*!./ 

04/4*/4J 

M/)i)M 

om  c/ 

VH 

9 

M/JM0J 

• 

• 

• 

IM** 

.M 

•  /Ml* 

• 

W/liWi 

• 

4HII 

.IM 

•  IMI* 

• 

NlliU/ 

• 

MM 

•  IM 

•  /M 

• 

MII,IU 

• 

I  Ml  I 

iM 

•  IM 

• 

NH./M 

IMI* 

.IN 

•  IM 

• 

_ _ _ M/ 4/004 

4NII 

.IM 

•  |M 

• 

40/4/140 

44H 

•  IM 

•  IM 

• 

MHl/lM 

MM 

.*H 

•  f  MM 

9 

44/4/400 

M  MlitHMIl 

•  IM* 

• 

M/4?  IM/ 

M  •  ••t«M*IM,  |M* 
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APROG 

Battalion  Slice 

BPROO 

CDC 

CONFORM 

CONFIL 

CONGER 

OONREP 

CONUS 

COSTA  LS 

DFE 

DPROO 

DTM  Number 

FCIS 

Handgen 

IBM 

LP 

MPA 

MPS 

MPS/360 

OMA 

OPTIMA 


a  routine  of  the  Battalion  811ce  Model 
Model  Ifee  Modular  Force  Planning  Systen 

a  routine  of  the  Battalion  Slice  Model 
Control  Data  Corporation 
Conatralned  Force  Model 
CONFORM  Preproceaaor  for  CONREP 
CONFORM  A  u  torn  ted  LP  Matrix  Generator 
CONFORM  Automated  LP  Reporter 
Continental  US 

Coat  Analysis  Systen.  now  the  Farce  Cost 
Information  Systen  (PC IS ) 

Division  Force  Equivalent 

a  routine  of  the  Battalion  Slice  Model 

a  3-dlglt  Identification  number  used  In 
the  Battalion  Slice  Model 

Force  Coat  Information  Systen,  formerly 
the  Cost  Analysis  System  (COSTALS) 

Hand-prepared  LP  Matrix  Structure  Input 
to  CONGER 

International  Business  Machines  Corporation 

linear  programming 

military  pay  and  allowances 

mathematical  programming  system 

one  of  IBM's  MPS  for  its  360  series 
computers 

operation  and  maintenance,  Army 

one  of  CDC's  MPS  for  its  6000  series 
computers 
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procurement  of  equipment  and  missile*. 
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right  hood  aide  of  LP  model  row 

Standard  Requirement*  Code  number  for 
Army  units 

troop  sequence  number  for  Army  units 
US  Amy  Management  Systems  Support  Agency 
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Dept  of  Amy,  "Pore*  DevelopsKnt  Planning  Systea,"  CSH  72-71*70, 
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in  the  Force  Development  Planning  Systea  in  support  of  the  Amy  Planning 
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Dept  of  Amy,  "Amy  Force  Planning  Cost  Itandbook,"  1  October  1971. (OUO) 
includes  examples  of  output  of  the  Coat  Analysis  System  (COSTAIfi),  now 
called  the  Force  Cost  Ihformtlcn  Systea  (FCI5). 

Arthur  Young  and  Coapany,  "Modular  Force  Planning  Systea  (Battalion 
Slice)”,  Bethea da,  Maryland,  1969. 

»  Control  Data  Corporation,  "Control  Data  &OO/65OO/66OO  Cosgruter  System 

,  OPTIMA  Version  3-0  Reference  Manual,"  Control  Data  Corporation,  Sunny¬ 

vale,  California,  1969. 

IBM  Corpora* ion,  'Mathematical  Prograaning  Systea  ( 360A-Co-ll*x)  360 
Version  2,  Linear  and  Separable  Prograaaalng  •  User's  Manual,"  IBM 
Corporation,  White  Plains,  Rev  York,  1970. 

IBM  Corporation,  Mathematical  Programing  System/ 360  ( 360A-Co-lAx) 
Version  2,  Control  language  User's  Manual,"  IBM  Corporation,  White 
Plains,  Rev  York,  1970. 

IBM  Corporation,  "Mathematical  Programing  Systeu/360  (360A-Co-lAx), 
Version  2,  Read  Coamunlcatlons  Format  (READCOW)  Program  Reference 
Manual,”  White  Plains,  Rev  York,  1970. 

IBM  Corporation,  "IBM  Syetem/360  FOR  IRAK  IV  language,"  Rev  York,  N.  Y., 
1968. 

IBM  Corporation,  "IBM  System/360  Operating  System  FORTRAN  IV  (C  &  H) 
Programmer's  Guide,"  Rev  York,  N.  Y.,  1970. 
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